$2.50/ CAN. S3. 00 SEPT. 1985 




1c¥t 



SJMfc' 



HANICAI 



FASYNEW 

20-SECOND FORMAHER 
FOR THE 1541 

J * -i -i ia e & c L ■:■ „ -. 

CADET'S COLUMN 

A NON-CRASH COURSE 
IN DISK MAINTENANCE 




SUPER 64 
UTILITIES! 

« FILE LOCK 

-> START & END ADDRESS 

GO-LISTER 

AUTO-GEN 



ORIGINAL GAMES- 
A&4ASY AS 

GIN 



J 



THE 
GREATEST OAMES! 

SUPERHERO 
MOXEY'S PORCH 
INVEaiVE 
FISH MATH 



A NATURAL! 

TUMBLIN 
DICE AND 



>7ilf: 



STRUCTU 

TAKING CHANCES 
ON YOUR VIC OR 64 



AHOY! DOCK 

MAKE YOUR COLLEQION 
SHIPSHAPE! 

DRAGON TYPE 

INPUT WITH 
BLAZING SPEED! 



Simulator n 



«. 



?s> 






^ 





^utyourself in the pilot's uuiiuiawi|i»iiWPUiiurokee Archerftfran awe-ln ap i r w iy WI HH I o ver realistic scene 
from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vie 
as you practice talteotfs, landings, and aerobatics. Complete documentation will get you airborne quickly 
even if youve never flown before. When you think you're ready, you can play the World War I Ace aerial battle 
game. Flight Simulator II features include ■ animated cotor 3D graphics ■ day, dusk, and night flying modei 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
instrumentation ■VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■ Worid 
War ) Ace aerial battle game ■ complete information manual and flight handbook. 



Seeyouraealer^ 

Of tor direct orders enclose $49.95 plus $2.00 tor shipping and specify UPS 
or first class mail delivery. American Express, Diner's Club, MasterCard, and 
Visa accepted. 

Order Line: 800 / 637-4983 



SjOGIC 

Corporation 

713 Edgebrook Drive 
Champaign IL 61820 

(217) 359-84S2T6lex: 206995 



Re«lar Service No. 158 



« 



4teL 



DEPARTMENTS 



A View from the Bridge.., of the September issue o/Ahoy! 4 
Guest Editorial by John C. Dvorak 5 

Scuttlebutt... what's coming for the VIC, 64, 128, Amiga. 7 
Art Gallery. . .picture-perfect computer art from readers. 34 



Errata. . . corrections to past programs. 



46 



Commodares. . . we show no mercy with this month's challenges. 55 



Reviews... we take the latest software for a spin. 



63 



Program Listings. . . more programs than ever before! 



85 



FEATURES 



Rockets, Boats, & Pigs in Pokes by Orson Scott Card* 18 
Tumbling Dice & Data Structures by Dale Rupert** 37 



A Look Around the 1571 by Morton Kevelson 



47 



Touring the C-128 Keyboard by Morton Kevelson 



51 



Addressing the Commodore, Part 11 by Mark Andrews*** 77 



Cadet's Column by Cheryl Peterson 



81 



♦Includes programs: Pig in a Poke and Basic Sprites (for the 64) 

**Includes programs: Dice Simulator and Dice Analyzer (for the VIC and 64) 

***Includes programs: The Quest and Response (for the 64) 



PROGRAMS 



'Invective for the C-64 by George Trepal 



J/Z. 



15 



Superhero for the C-64 by James C. Hilty 



17 



- Start & End File Address for the C-64 by David S]^/ri^rt 1 7 
Fish Math for the VIC 20 by Kevin Dewey 29 

^0 



-'Ahoy! Dock for the C-64 by Glerm Lumpkins 
^Fastnew for the C-64 by Don Lewis 



" Auto-Gen for the C-64 by David A. Jones 



59 



^Dragon Type for the C-64 by Bob Spirko 



■^ File Lock for the C-64 by Don Lewis 



JJZU^ 



61 



T^^62 



^ Go-Usterfor the C-64 by John K. Lunde ^"''^^ ,^^C^ 
"^Moxey's Porch for the C-64 by Bob Blackmer 






73 



Bug Repellents for the VIC & 64 by Kleinert and Barron 85 



Flankspeed for the C-64 by Gordon F. Wheat 



86 



Cover art by James Regan; art and photos inside screens by Morton Kevelson, 
James Regan, and Javier Romero 



Publisher 
Michael Schneider 

Editor 
David AUikas 

Managing Editor 
Michael Davila 

Senior Editor 
Jtm Moriarty 

Technical Editors 

David Barron 

Bob Lioret 

Consulting Editors 

Ben Bova 

Morton Kevelson 

Dale Rupert 

Art Director 
JoAnn Case 

Production Director 
Melissa Held 

Art Production 

Christopher Carter 

Mark Kammerer 

Eve Griffin 

Bulletin Board SYSOP 
B.W. Behling 

Circulation Director 
W. Charles Squires 

Advertising Director 
Lynne Dominick 

Director of Promotion 
Joyce K. Fucks 

Controller 
Dan Tunick 

Managing Direaor 
Richard Stevens 

Advertising Representative 

JE Publishers' Representative 

6SSS Santa Monica Blvd., Suite 200 

Los Angeles, CA 90038 

(213)467-2266 

Boston (617)437-7628 

Dallas (214)660-2253 

New York (212)724-7767 

Chicago (312)445-2489 

Denver (303)595-4331 

San Francisco (415)864-3252 



'7<?1- 33 ISSUE NO. 21 



SEPTEMBER 1985 

Akay! (i*'8?50-4383) Is published monthly by Ion In- 
Cemational Inc., 45 Vi. 34th St., Suite 407, New \M(, 
NY, 10001. SubscHptiDD rale: 12 bsues for S19»S, 24 
Issues for S37.9S (Canada $2655 and M95S respec- 
tively). Second class posUge paid ■! New York, NY 
tOOOl and addilional mailing orflces. " i98S by Ion 
Itllernational Inc. All rights reserved. ' under Uni- 
venal International and I^n American Copyrlgiit 
conventions. Reproduction of editorial or pictorial 
content in any manner is prohibited. No responsi- 
bility can be accepted for unsolicited material. Post- 
master, send address changes to Ahoy!. 45 W. 34tb 
S<t«et, Suite 407. Ne« York, NY 10001. Direct all ad- 
dress changes or matters concerning your subscrip- 
tion to AJioy!, PJO. Box *341, Ml, Morris, IL 61054. 
All editorial Inquiries and sottware and hardware to 
be reviewed should be sent to Ahoy!, 45 W. 34th St. , 
Suite 407, New Virk, NY UWOl. 



VlliW l=l?OM 71-11= m;iDGi= 




M M ^^k ^^B ore Programs than Ever Before?" 
^■^B^^^k^^^K Haven't we used that pitch al- 
ready? Yes -on our March '85 
cover. That issue contained 8 
programs, which at the time was 
more than ever before. This issue contains 14. Well -that's not 
entirely true. Our Rupert Report, Creating Your Own Games, 
and Commodore Roots columns include two programs each; 
so you could say 17. And if you count Flankspeed and Bug 
Repellent... 

But let's not set the total too high. We don't want to make 
it impossible to top the next time we want to use the same 
cover blurb -which may be soon, as we add pages to your 
fevorite Commodore magazine. (In feet, see next month's View 
from the Bridge for an anrouncement concerning an eight-page 
monthly addition to Ahoy!, covering the one major area of 
Commodore home computing that we've purposely neglected. . . 
until now! 

In the meantime, our bursting-at-the-seams editorial policy 
makes it necessary to abridge our usual banter in order to de- 
scribe the contents of this issue: 

• Morton Kevelson continues his 128 opus with a detailed 
explanation of the new computer's keyboard and its 1571 disk 
drive. (T\im to page 47.) 

• Orson Scott Card takes Creating Your Own Games into 
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a territory you've long anticipated -sprites -and provides Pig 
in a Poke, a complete game for children. (Ttim to page 18.) 

• Dale Rupert continues his series of Rupert Reports on real- 
world simulations with this month's Tumbling Dice and Data 
Structures. (Turn to page 37.) 

• Old timers as well as new will find useftil information 
on disk maintenance and buying software in this month's edition 
of Cheryl Peterson's Cadet's Column. (Jum to page 81.) 

• Mark Andrews concludes his two-part article on assem- 
bly language addressing in this month's Commodore Roots. 
(Turn to page 77.) 

• Fastnew will cut disk formatting time from 90 seconds 
to 20-and, more important, will prevent your IMl's read-write 
head from banging during the operation. (TUm to page 33.) 

• Ahoy! Dock will let you organize your collection of Ahoy! 
and other computer magazines for easy access to any article 
by category. (Tlim to page 30.) 

• Start & End Fde Address will generate the load and end 
addresses of any program. (TUrn to page 17.) 

• Go-Lister produces a printout of all BASIC program lines 
called by GOTO, GOSUB, THEN, and ON statements. (Turn 
to page 73.) 

• Dragon Type is the latest programming pearl from Ahoy! 
ace Bob Spirko-this one, an entertaining typing tutor. (TUm 
to page 61.) 

• Superhero generates a variety of mazes that you must ne- 
gotiate in order to protect the world from falling meteors. (Tlim 
to page 17.) 

• You may find yourself hurling some Invective of your own 
as our game of the same name turns the tables on you every 
15 seconds, scrambling the position of the joystick. (Tlim to 
page 15.) 

• Fish Math offers multiplication practice for young chil- 
dren, arcade action for adults, and, best of all, a reason not 
to convert your VIC 20 to scrap metal yet! (TUm to page 29.) 

• Auto-Gen reads machine language routines from memory 
and turns them into data statements. (Tbm to page 59.) 

• Moxey's Porch requires speed and dexterity to zig-zag 
around a freshly painted porch. (Turn to page 73.) 

• Ftle Lock enables you to scratchproof any program file. 
(Turn to page 62.) 

Of course, you'll find Commodares at their frustrating best 
(turn to page 55); a new collection of reader-generated com- 
puter graphics in our Art Gallery (turn to page 34); reviews 
of products like On-Field Football, Blazing Paddles, and the 
Computereyes video acquisition system (turn to page 63); and 
Scuttlebutt, featuring all the Commodore-related news from 
the Summer '85 Consumer Electronics Show (turn to page 7). 

We remind you that our soon-to-debut programming tips col- 
umn is awaiting your submissions (see page 46); our bulletin 
board system is ready to take your calls 24 hours a day (see 
page 114); and our programs, in this issue and every issue, 
are available on disk or cassette (see page 23). 

It was our aim in producing this issue (as with every issue) 
to provide enough material to keep you stimulated, challenged, 
and occupied until next month. Even better, well into next 
month. We won't rest until we've got you hopelessly backed 
up on your reading. -David Allikas 
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IMAGE 

A Viewpoint by John C. Dvorak 



Is the success of Commodore a fed? A fluke? A freak of 
nature? Well all know in the next year or so. Whatever 
the case, it's quite likely that Commodore will have to 
fight an uphill battle to make a long-term success of the 
nifty Amiga Lorraine computer. 

Commodore has created the image of a company that makes 
a cheap disposable computer. When articles are written about 
home computers sent to the closet to die, what computer do 
they talk about? There is always a picture of a Commodore 
64 or VIC 20 languishing amongst the old ski boots. Hey, it 
isn't bad— it's disposable. 

Image is everything in this business, as any IBM critic will 
tell you. The Commodore dilemma reminds me of two stories. 
The first goes back to the early days— the days of the SOL-20 
computer. The SOL was released in 1977 and quickly found 
a following of users, many of whom attached a little Northstar 
floppy disk drive to the machine. A perfect combination, it 
was a compact system with the first commercial 5 '4 -inch disk 
drive. It was provided with a terrific BASIC and a nifty oper- 
ating system. Above all it was simple and fairly inexpensive. 

Processor technology, the company that made the SOL, 
wanted to do its own disk drive, so it spent a little over a year 
to come up with an expensive 8-inch hard sectored clunker 
called the Helios. This fiasco was probably as responsible as 
anything for grounding the whole Proc Tech business. The key 
to the whole blunder of the Helios is that if the company had 
seen what its customers wanted (cheap 5 '4 -inch disk systems) 
instead of what it thought it wanted (overpriced 8-inch clunkers) 
it would be in business today. 

To Commodore marketeers this anecdote questions the like- 
lihood of success if Commodore changes from a company that 
makes disposable computers to a company that makes hi-grade 
machines. Let's assume it can do it. There's still the image 
problem. 

Anecdote #2. I once attended a focus group that showed a 
proposed Atari computer that was MS-DOS, CP/M, Apple, 
and Atari compatible. It would cost $1500. Nobody knew who 
the manufacturer was. The question was asked: "Would you 
buy this machine if it were an IBM?" It was one of those "highly 
likely, likely, unlikely, highly unlikely" type questions. Every- 
one said "highly likely." The same question was repeated, but 
this time the manufacturer was Apple. Again, the answer was 
"highly likely." The focus group jumped to Atari and the an- 
swer became "highly unlikely." The group saw the Atari as a 
game computer. This was a semi-,serious machine — not an Atari. 

Commodore was never even suggested at this group. Where 
would it stand? I shudder to think. Undoubtedly, it would be 
rated in the highly unlikely category. This will remain the case 
unless Commodore changes its image. 

It must begin to improve its image now. Commodore isn't 
the first thing that comes to your mind when you think of the 
word "innovation." That lack is the first thing that has to go 



if the company is to survive. Words like "experimental," "in- 
sightful," "advanced," or even "well-made" do not bring to mind 
Commodore, either. What about words like "cheap compu- 
ter" and "good deal"? Right! Commodore. 

The Amiga will never be a truly "cheap computer" in the 
near term. It might be a relative good deal, but that's not what 
will sell the next generation of machines. Most users can get 
everything from a "good deal" to "trustworthy" and "reliable" 
from IBM. "Innovative" is the key word necessary for success. 

Few companies have the wherewithal or opportunity to offer 
the public an advanced machine like the Amiga. Hopefully, 
the company will concentrate its marketing effort towards 
changing the public perception of Commodore. Hopefully it 
will create the right new image. 

We sure don't want to see the Amiga in the closet with the 
ski boots, do we? D 

Mr. Dvorak is the former editor o/InfoWorld magazine and 
writer of blade TVack, InfoWorldi industry news column. 
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SUAAMER '8S CONSUMER ELECTRONICS SHOW-THE CHIPS ARE DOWN 

Still bullish on the home compu- desertion the show's oiiganizers fean^i fortunately, intended for sale in North 



ter market? You weren't at June's 
Consumer Electronics Show. The 
H&// Street Journal aptly described 
the computer software section as a 
"ghost town." For us, the proof of the 
pudding was in the carrying: the bag 
of Commodore-related press releas- 
es we toted back to New York 
weighed in at twelve pounds, less 
than half of what we brought home 
from January's show in Las Vegas. 
Most vendors were modest in ^eir 
offerings, by comparison to the end- 
less arrays of software displayed at 
last summer's show. Particularly no- 
ticeable was the dearth of education- 
al releases for the Commodore, long 
the most glutted sector of the 64 mar- 
ket. A number of prominent manu- 
fecturers were conspicuous by their 
absence. Rumor has it that Atari, 
which had pulled out weeks before 
the show, was given their booth at a 
negligible cost to prevent the mass 



their cancellation would signal. 

Of course, some beUeve that canny 
old Jack Tramiel cancelled primarily 
to convince Commodore not to rush 
the announcement of their new Ami- 
ga computer, since Atari's 520ST 
would not be there to steal the show 
in Amiga's absence. By reentering as 
an exhibitor at the eleventh hour- 
Jackintosh and all— Tramiel left Com- 
modore with nowhere near sufficient 
time to ready an Amiga presentation. 
BeUeve this tale of corporate intrigue 
if you will. The fact is that, even 
without Amiga, Commodore domin- 
ated the floor (helped by the feet that 
Atari wound up tucked away in a cor- 
ner of the upstairs level). 

While the hordes of newshungry 
reporters that invaded the Commo- 
dore booth were disappointed 1^ 
Amiga's absence. Commodore did 
display a most impressive collection 
of hanlware— almost none of it, un- 



America. Among the new computers 
planned for the European market are 
the IBM PC-compatible PCIO and 
PC20 (pictured on this page), the 
Unix-compatible Commodore 9(X) 
Business Computer (a multiuser 
workstation), and the 128D, featur- 
ing a built-in disk drive and inde- 
pendent keyboard. 

Of greater interest to American and 
Canadian readers were the following 
peripherals compatible with the 
C-128 (and in some cases the C-64 
as well), some previously announced 
but seen for the first time at the 
convention: 

• The 1572 Dual Disk Drive, com- 
prising two horizontal 5W drives, 
each reading double-sided, single- 
density disks with up to 340K (for- 
matted) memory in C-128 mode and 
4I0K in CP/M mode. 

• The Commodore I67D Modem/ 
1200, utilizing VLSI technology to 
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deliver a 1200-baud rate at a price ex- 
pected to be under SIOO. Using "AT 
Hayes command protocol, the 1670 
has auto-dialing, auto answer, auto 
speed, and auto mode selection. 

• Compatible with the C-128 and 
C-64, the MPS 1000 Printer offers 




draft (100 cps), near letter quality (16 
cps), and graphics modes, and a four- 
column display: Pica (80), Elite (96), 
Condensed Pica (132), and Con- 
densed Elite (160). 

• Just like the Macintosh's rodent, 
the Commodore Mouse will let 128 
users sidestep special function keys 
and commands by moving the device 
over a desktop, thereby positioning 
onscreen icons. 

Commodore also exhibited the 
software currently available for the 
128: Jane 2.0, an integrated word pro- 
cessing/spreadsheet/filing program 
developed by Arktronics Corporation 
and permitting input with the Com- 
modore mouse; the previously an- 
nounced Perfect series from Thorn 
EMI (consisting of Perfect Writer, 
Perfect Caic, and Perfect Filer); and 
a 128 version of Commodore's own 
Micro Illustrator. 

Doesn't sound like a lot? There's 
more: Typing Professor and A Com- 
prehensive Course in BASIC will be 
coming from Commodore, as well as 
programs from such companies as 
Batteries Included, Tmieworks, Scho- 
lastic, Spinnaker, Digital Solutions, 
Precision Software, and Melodian. 

Still, an unimpressive amount of 
software for a computer announced 
five months ago -particularly a 
Commodore computer, the heir ap- 
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parent to the 64 throne. Consider it 
one more indication of the depressed 
state of the home computer software 
business. Or as support for one last 
rumor -that a sizeable percentage of 
companies have already directed the 
bulk of their programming efforts to- 

The compact 
(21x7x 15.5") 
Alphapro 401 
has a small 
desktop "foot- 
print" and a 
sound cover 
that minimizes 
noise. Paper up 
to 15.7" wide 
can be used. 
READER 
SERVICE 
NO. B5 

ward producing software for the 
Amiga. 

35CPS DAISY WHKL 

Aimed at the office market, the Al- 
phapro 401 daisy wheel printer offers 
a print speed of 35 character per sec- 
ond, path seeking logic, and a 2K 
(expandable to I6K) buffer for $599. 
The printer emulates the Diablo 630 
printer protocols and uses Diablo- 
and Qume-compatible print wheels 
and ribbons. 

Alphacom Inc., 2323 South Bas- 
com Ave., Campbell, CA 95008 
(phone: 408-559-8000). 

RGB MONITOR 

An alternative to the Commodore 
1902, Sakata's SC-150 is a compos- 
ite/RGB high resolution monitor with 
13" screen, .42mm dot pitch, and 
dark face finish. It will operate with 
NTSC Composite, Y-C, RGBI, 
XRGB, and RGB input. Price 
$499.00. 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 

EDUCATIONAL RELEASES 

Two C-64 programs for students in 
grades 7-12: 

Homework Helper Math Word 
Problems ($32.95) aids students. 



through a series of questions and 
prompts, in building the correct equa- 
tion to solve a problem. 

Homework Helper Writing 
($32,95) guides students through or- 
ganizing and outlining their ideas for 
book reports, essays, and research pa- 




Sakata composite/RGB hi-res monitor. 
READER SERVICE NO. 136 

pers, then writing the text with the 
program's word processing and print- 
ing capabilities. 

Spinnaker Software, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

Four classics-based C-64 programs 
from Fisher-Price Learning Software 
($24.95 each): 

Peter Rabbit Reading lets children 
3-6 guide the famed bunny through 
a series of escapades, identifying con- 
sonant and vowel sounds and match- 
ing words to pictures. 

Prokofiev's Peter and the Wjlf Mu- 
sic introduces children 3-6 to the 
principles of music through seven 
games. 

Jungle Book Reading teaches chil- 
dren 6-9 reading comprehension as 
they guide Mowgli the jungle boy 
through encounters with an assort- 
ment of animals. 

The First Men in the Moon Math 
requires players 9-12 to help Profes- 
sor Cavor solve the math problems 
with which the Selienite creatures 
have blocked his way. 

Fisher-Price Learning Software, 
P.O. Box 1327, Cambridge. MA 
02238 (phone: 617-494-1222). 

KIDWare has released 60 educa- 
tional programs for the C-64, two to 
each tape ($9.95) or disk ($11.95), for 
children 1-16 years old. For more in- 
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formation contact KIDWare, P.O. Box 
9762, Moscow, ID 83843 (phone: 
208-882-3830). 

Tales of Discovery makes the child 
the centra! character in two stories: 
Urates of the Soft Seas (solve vocab- 
ulary and math puzzles to outwit pi- 
rates and find buried treasure) and 
Fossils Alive! (search for fossils and 
learn how a neighborhood looked in 
prehistoric times). For the C-64; 
$29.95. 

Scholastic Software, 730 Broadway, 
New York, NY 10003 (phone: 212- 
505-3000). 

From Sierra On- Line: 

Goofy's Word Factory teaches 
grammer via three games involving 
conveyor belts and a kooky machine. 
For the C-64; S24.95. 

Mickey's S-in-i ($49.95) consists of 
a word processor, data file manager, 
and telecommunications system de- 
signed for children. For the C-128. 

Sierra On-Line, Inc., Coarsegold, 
CA 93614 (phone: 209-683-6858). 

GHWAN, HAVE S'MORE 

Cardco's S'MORE (for Super 
Memory Optimized RAM/ROM Ex- 
pansion) is a $69.95 cartridge-based 
program that will provide your C-64 
with 61,183 bytes of free RAM (that's 
including the 38,911 already present), 
over 60 new and enhanced BASIC 
commands and functions, full error 
trapping and automatic error help 
(which lists the error line and places 
a flashing cursor at the beginning of 
the program statement containing the 
error), full command selection, fiill 
up-down scrolling through program 
listings, and direct access to items 
normally PEEKed and POKEd. 

Because S'MORE^ command 
structure is similar to the C-128's, 
C-64 programmers can make use of 
the advanced programming tech- 
niques available on the C-128, facili- 
tating later conversion. 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 

SYNCALC TEMPLATES 

For use with the Syncalc spread- 
sheet for the C-64, the Syncalc Tem- 
plates Disk ($19.95) provides 22 com- 



monly used forms and formulas for 
financial planning, budgeting, and 
record keeping. The disk also illus- 
trates basic design principles for con- 
structing or modifying special appli- 
cations spreadsheets, from simple to 
complex, 

Broderbund Softvt^re, 17 Paul 
Drive, San Rafeel, CA 94903 (phone: 
415-t79-1170). 

DEATH AND REVISIONS 

Tojc Command Planner, which is 
designed to let individuals test the tax 
effects of various financial alterna- 
tives, has been revised to account for 
Treasury Department proposals to 
eliminate many existing tax shelters. 
Purchasers of earlier vet:sions can ob- 
tain the update by returning their pro- 
gram to the manufacturer. For new 
users, price of the 64-compatible ver- 
sion is $49.95. 

Practical Programs, Inc., P.O. Box 
93104, 625 N. Milwaukee St., Mil- 
waukee, WI 53202 (phone: 414- 
278-0829). 

ELECTRONIC COOKBOOK 

The Electronic Cookbook lets C-64 
users store, display, edit, and print 
recipes, 31 of which are included on 
the disk. Price is $20 (Canada $25) 
plus $2.50 postage. 

Arcturus Software, 2332 Misade 
Dr. SW, Calgary, Alberta, T2V 3V1 
Canada (phone: 403-281-1632). 

KWIK-PITCH 

Datamost has followed up the re- 
lease of Kwik-Load! and Kwik-Wite!, 
the first two releases in its Kwik-mirel 
line of $19.95 software for the C-64, 
with Kwik-Spell! (spelling checker for 
Kwik-Wite! and other C-64 word pro- 
cessors), Kwik-File! (database man- 
agement), Kmk-Calc! (spreadsheet), 
Kwik-Paint! (graphics editor), Kwik- 
Check! (check balancing and main- 
tenance), Kwik-Pad! (desk secretary), 
and Kwik-Phone! (communications). 

Each Kwik-Ware! program has the 
Kwik-Load! fast loading program 
built in, and most are compatible 
with other programs in the series. 

Datamost Inc., 19821 NordhoffSt., 
Northridge, CA 91324 (phone: 818- 
709-1202). 
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OAMES FOR THE 64, 128, 
AMIGA 

Two graphics-and-text adventure 
games from Spinnaker's Telarium 
subsidiary: 

Perry Mason: The Case of the 
Mandarin Murder takes place in the 
courtroom, where the player can do 
everything a courtroom lawyer might, 
from cross-examining and introduc- 
ing evidence to consulting privately 
with the judge. The degree of char- 
acters' cooperativeness varies as a re- 
sult of the player's interaction with 
them. 

Based on the series of science fic- 
tion novels by Roger Zelazny, Nine 
Princes in Atnber enmeshes the play- 
er in negotiation, politics, and alli- 
ances as, in the role of the prince 
Corwin, he battles his brothers and 
sisters for the throne of Amber. 
Again, the game's outcome depends 
heavily upon the player's interaction 
with the other characters. 

For the C-64; S32.95 each. 

Telarium Corp., One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

Lode Runner's Rescue casts the 
player as Alexandra, daughter of the 
original Lode Runner who is being 
held prisoner deep underground by 
the evil Bungeling Empire. She must 
negotiate 46 mazes on her way to free 
her father. Of course, included is a 
game editor that lets the player con- 
struct an unlimited number of maz- 
es full of elevators, trap doors, en- 
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King's Quest 
tl: Romancing 
the Throne 
(from Sierra 
On-Line, Inc.) 
is to our knowl- 
edge the first 
game an- 
nounced for 
Commodore's 
Amiga compu- 
ter. A C-128 ver- 
sion will also be 
available. 
READER 
SERVICE 
NO. 137 



emy guards, and rushing rivers. For 
the C-64; $29.95. 

Synapse Software, 17 Paul Drive, 
San Rafael, CA 94903-2101 (phone: 
415^79-1170). 

Assorted new C-64 releases from 
Epyx: 




Gato: a C-128 submarine simulation. 
READER SERVICE NO. 138 

Winter Games features six sports, 
including ski jumping, a ski biathlon 
and hotdogging, speed and freestyle 
events, and a bobsled race. 

The Worlds Greatest Football 
Game allows coaches to develop their 
own pl^s or customize existing ones, 
and store up to 120 of them in a play- 
book. The action can be viewed from 
a sideline, bird's-eye, or closeup view. 

Joining Ballbtazer and Rescue on 
Fractalus!, previous releases in 
Epyx's Lucasfilm Games Division: 



The Eidolon, centering around a 19th 
century machine that taps psycho-kin- 
etic forces, transporting the player to 
a magic realm of caverns populated 
with Trolls, Greps. and Guardian 
Dragons; and Koronis Rift, compKl- 
ling the player to wrest the secrets of 
the ancients from a genetically engin- 
eered race of guardians that outlived 
their creators. 

Jet Combat Simulator recreates ac- 
tual flight situations that confront an 
F-15 pilot, including cross-wind tur- 
bulence and blind landings. Four op- 
tions let the player progress from 
landing practice to air-to-air combat. 

The components of the Temple of 
Apshai trilogy -Temple of Apshai, 
Curse ofRa, and Upper Reaches of 
Apshai -wiW be sold together for the 
price of a single game. 

All of the above Epyx games will 
retail for S29-$35 (except Jet Com- 
bat Simulator and the Apshai 
trilogy- $19-529). 

Epyx, Inc., 1043 Kiel Court, Sun- 
nyvale, CA 94089 (phone: 408- 
745-0700). 

New for the 64 from Activision: 

As Hacker begins, the player has 
broken into an unknown computer 
system that conceals a mystery. With 
no background information, no rules, 
and no clues, he must find out whose 
system he's hooked into and what's 
going on. 

Fast Tracks: The Computer Slot 
Car Construction Kit lets the user 
build a race course piece by piece 
from a variety of types of track 
sections, view the course as a whole, 
and then race his own custom-de- 
signed car. Favorite courses can be 
saved to disk for future use. 

Though certain to bring a sneer to 
Orson Scott Cand's lips, Garry Kitch- 
en's Gamemaker: The Computer 
Game Design Kit joins the ranks of 
programs that make it possible to cre- 
ate games without programming 
knowledge. The user selects 
characters (rocket ship, running man, 
etc.) from a menu, along with their 
speed and direction, background, 
sound effects, and music. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 
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Three new C-64 simulations from 
MicroProse, each $34.95: 

Aerojet, The Advanced Flight Sim- 
ulator, for computer pilots who've 
won their wings in Solo Flight, of- 
fers a Decathlon of Sport Aviation 
events, including spot landings, rib- 
bon cuts, acrobatics, and other high 
performance maneuvers. 

Gunship, The Helicopter Simula- 
tor, simulates operation of the new 
AH-64 Apache attack helicopter and 
features multiple weapon and navi- 
gation systems. 

Silent Sendee, The Submarine Sim- 
ulation, provides a selection of his- 
torical scenarios from single ship at- 
tacks to multipatrol missions with 
graduated enemy skills. 

MicroProse Software, 120 Lake- 
front Drive, Hunt Valley, MD 21030 
(phone: 301-667-1151). 

C-64, C-128, and Amiga releases 
from Sierra On-Line: 

Gato, a submarine simulation pre- 
viously released for IBM and Apple, 
will be converted to the C-i28. The 
game transforms the player into a 
World War n sub commander, prowl- 
ing the Pacific in search of the Jap- 
anese Imperial Fleet. Price: $39.95. 

King's Quest II: Romancing The 
Throne, featuring 3D animated 
graphics, will be available in C-128 
and Amiga versions. Price: $49.95. 

Stunt Flyer ($39.95) will let C-64 
users pilot a Pitts Special through a 
number of aerobatic sequences. 

The Black Onyx ($39.95) takes 
C-64 adventurers down into a dun- 
geon maze, then to the lop of a mys- 
terious tower. 

Sierra On-Line. Inc., Coarsegold, 
CA 93614 (phone: 209-683-6858). 

COMPUTiR RACK SYSTEM 

Designed for Commodore systems, 
the Hi-Rise computer/printer stand 
($39.95) will allow users to store their 
C-64 or VIC 20 monitor, printer, and 
disk drive (or printer paper) in less 
than two square feet of desktop space. 
Crafted of solid oak, it's a sure bet 
to outlive the rest of your configura- 
tion. 

Unique Wood Products, P.O. Box 
52, Mankato, MN 56001 (phone: 
507-625-5123). 



BIC ROGERS? 

The Space Pen input device differs 
from other light pens in its ability to 
detect the third dimension, or "Z" 
axis, enabling the user to operate in 
a six foot area in front of the com- 
puter display. While no software cur- 
rently available can utilize this capa- 
bility, the pen will work in two di- 
mensions with all touch tablet paint 
programs and an assortment of popu- 
lar packages. 

C-64 or VIC 20 version $150, 
Amiga version $175, including samp- 
ler software. 

Soniture, Inc., 480 Vandell Way, 
Campbell, CA 95131 (phone: 408- 
866-4616). 




Space Pen detects third, or Z, axis. 
READER SERVICE NO. 139 




GIANT 

HEAVY DUTY 
INFLATABLE BOATS 

2 MAN $38 

3 MAN $50 

4 MAN $65 

Before Midnight 
For The Next 30 Days 
As part Of an advertising test, Dunlap Boat MIg. 
will send any o( above size boats to anyone who 
reads and responds to this test before the next 30 
days. Each Boat Lot No. (2-26 PVC) is constructed 
of tough tiigh density fatihc (resistant to abrasions, 
sunlight, salt & oil), electronically weided em- 
bossed seams, nylon safety line grommeted all 
around, lieavy duty oar locks, 3 separate air cham- 
bers for extra safety (4 air chambers in 4-man). 
self-locking safety valves, bow lifting & towing han- 
dle and are recommended for marine, ocean and 
fresh water recreation, camping, fishing or a family 
fun boat- Each boat will be accompanied with a 
LIFETIME guarantee (hat it must perform 100% 
or It will be replaced free. Add S7 handling & 
crating for each boat requested. Dunlap Boat Mfg. 
pays all shipping. If your order is received within 
the next ten days you will receive FREE a com- 
bined liand/fool inflator/ deflator bellows style 
pump for each boa! requested. Should you wish 
10 return your boat you may do so for a full refund. 
Any letter postmarked after 30 days will be re- 
turned. LIMIT three (3) boats per address, no ex- 
ceptions. Send appropriate sum together with your 
name and address to: Boat Dept. #341 B, Dunlap 
Boat Mfg.. 2940 W. Pico Blvd.. Los Angeles. CA 
90006. Or for fastest service from any part of the 
country call 1 -800-824-9988 for 8oaI Dept. #34 IB 
(Calif residents call collect 213-735-9363). before 
midnight seven days a week. Have credit card 
ready. 
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Hi-Rise stand: sturdy and practical. 
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10-30 MIO HARD DRIVI 

If you can live with the irony of 
spending $100 for your computer and 
15-30 times that for a storage device, 
Fiscal Information has the peripher- 
al to fulfill your most extravagant fen- 
tasies. Lt. Kemal, a hard disk drive 
/or the C-64, will access data up to 
43 times fester than the 1541 (though 
compatible with it in most applica- 
tions). The drive also provides 34 ad- 
ditional or enhanced system com- 
mands, autoboot of a selected pro- 
gram, built-in CP/M-like command 
features, up to 10 logical drives, and 
the ability to keep up to seven files 
open simultaneously. Mass and archi- 
val backup and restore facilities are 
available. 

10MB version $1595; 20MB. 
$1995. Streaming tape option, which 
backs up 10 megabytes in 2 minutes, 
if $1525, 

Fiscal Information Inc. , 143 Exec- 
utive Circle, Daytona Beach, FL 
32014 (phone: 1-800-874-1890). 
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lELECOM NEWS 

General Electric is offering two 
hours of access to CompuServe's ex- 
ecutive information service with the 
purchase of a $99.95 GE telephone 
modem, model 3-8200 (see May '85 
Scuttlebutt, page 9), 

General Electric Company, Elec- 
tronics Park, Syracuse, NY 13221 
(phone: 315-456-2446). 

BRKTHRU gives the user access 
to over 65 databases covering busi- 
ness and finance, science, medicine, 
education, general reference, and 
more. Cost is $75 to sign up ($25 
credit) plus usage charges ranging 
from $17.50-$125 an hour. 

BRS Information Technologies, 
1200 Rt. 7. Latham, NY 12110 (phone: 
518-783-1161). 

SCREENPLAY REBATES 

Software Resource Group will of- 
fer a $5 rebate direct to the consumer 
on purchase of all Screenplay and 
Brown Bag Software. 

Software Resource Group, 1095 
Airport Road. Minden, NV 89423 
(phone: 702-782-9731). 

PJtfJtfr SHOP GRAPHICS 

Ute Graphics Library, Disk Two, 
like the previously released Disk One, 
provides additional designs, symbols, 
and pictures for use with The Print 
Shop, this time in the categories of 
Jobs, Hobbies, People, Places, Trav- 
el, and Health. For the 64; $24.95. 

Broderbund Software, 17 Paul 
Drive, San Rafael, CA 94903-2101 
(phone: 415-479-1170). 



MAKE YOUR OWN 
KIND OF MUSIC 

The two latest additions to Master- 
Soft's Mastery in Music series. Trum- 
pet Master and Clarinet Master, let 
the student personalize his practice 
music with his choice of key and time 
signatures, note type, and note range. 
Instant access to music facts and fin- 
gerings is always available. Scales, 
thirds, and intervals in every major 
key are included. For the C-64; 
$49.95 each. 

MasterSoft, P.O. Box 1027, Bend. 
OR 97709 (phone: 503-388-7654). 

A FIRST FROM JUKI 

Juki's first dot matrix printer, the 
5510. chums out type at speeds rang- 
ing from 30 cps (near-letter quality 
mode) to 180 cps (draft mode). The 
printer's bidirectional, logic-seeking 
system combines a 9" platen with as- 
sorted printing width capabilities. In- 
cluded is a built-in tractor, 3K buf- 
fer (expandable to I5K). Suggested 
retail price is under $500. 

Additionally, Juki has extended its 
current customer service warranty on 
all its microcomputer printers to one 
year from date of purchase. 

Juki Office Machine Corp., 299 
Market St., Saddle Brook, NJ 07662 
(phone: 800-932-0590). 

MORSE CODE TUTOR 

IMCT offers a tutorial in Interna- 
tional Morse Code, and a training 
program to increase your code speed 
from 1-25 words a minute. For the 
64; $18.95 (PA residents add 6% sales 
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tax). 

AC3L Software, P.O. Box 7, New 
Derry, PA 15671. 

ACTIVISION RELEASES 

Two non-games for the C-64 from 
Activision: 

The Complete Computer Fireworks 
Celebration Kit lets patriots create 
fireworks displays, add music and 
special messages, and turn their dis- 
plays into computer greeting cards. 

Alter Ego allows users to vicarious- 
ly experience life as someone else, 
building a unique personality through 
reactions to a variety of emotional , 
physical, and other situations. 

Activision, Inc., 2350 Bayshore 
Frontage Road. Mountain View, CA 
94043 (phone: 415-960-0410). 

BOOKS 

The Greatest Games: Tlie 93 Best 
Computer Games of All Time (by 
Ahoy! reviewers Dan Gutman and 
Shay Addams) reviews 93 games in 
18 categories. Price is $9.95. 

COMPUTE! Publications, Inc., 
324 W. Wendover Ave., Suite 200, 
Greensboro, NC 27408 (phone: 919- 
275-9809). 

The latest edition of the Softsel 
Product Encyclopedia, covering more 
than 3,000 software and hardware 
products in its 334 pages, is available 
for $29.95. 

Softsel Marketing Dept. , P.O. Box 
6080, Inglewood, CA 90312 (phone: 
714-640-7375). 

Problem Solving in BASIC with the 
Commodore 64 consists of a book 
and a 30-minute videotape that take 
the user on a tour of top-down pro- 
gramming on the 64. Price is $59.95. 

Hayden Book Company, 10 Mul- 
holland Drive, Hasbrouck Heights, 
NJ 07604 (phone: 201-393-6306). 

Marketing Your Software ($16.95) 
offers a 26-step plan, from defining 
objectives and analyzing competition 
to investigating distribution and de- 
signing packaging. 

Addison-Wesey, General Publish- 
ing Group, Reading, MA 01867. 

Graphics Library: pixfor Print Shop. 
READER SERVICE NO. 150 
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YOUR MISSION: 

TO EXPLORE 

NEW WORLDS 

Tap into an exciting computer 

resource available for the VIC-20 

and C64 computers: synthesized 

speech. 

Tolkfronics brings to you two 

extremely powerful plug-in 

speech synthesizers to let your 

computer sound off in ways 

you never l<new were possible. 

VICTalker and 64Talker 

enhance your educational 

programs and games, aid the 

handicappjed and generally 

increase computer 

"friendliness". 

Look at these 
sophisticated features: 

Self contained firmware - 
disl( or tape not required 
lor synthesis. 
Audio mixer to combine 
computer generated 
sounds with the synthe- 
sized voice for VIC- 
Taiker or 64-Taiker. 
Two user-programmable 
voices that can be as 
varied as your 
k V imagination - from 

k m chipmunks to robot 

W W warriors, 

' ^ • Tronsiotlcn of ordinary 
text directly to synthesized 
speech using pronunciation 
rules lor English. 
• Nonvolatile user- 
programmable exception 
word memory permits special 
pronunciotion or translation of 
words you select and is retained 
when power is off. 
• Contains rules lor pronuncia- 
tion of text, numbers, punctuation 
and BASIC command words. 
Accurate translation of number strings in decimol. dollars and cents, 
fractions, BASIC equations, time and phone numbers. 
Easily controlled with simple commends from BASIC or machine language - 

like using the printer or disk. 
Proofread mode announces the punctuation In a different voice - lets your 

computer "speak" BASIC program listings. 

• Cftange the voices olong with speaking text. Make if singi 

•The voice comes out on the TV or monitor. 




VIC-Talker and 64-Talker 

are priced at $89 each 
and are available from 

Tolkfronics, Inc. 

27341 Eostridge Drive 

El Toro, CA 92630 

(714) 768-4220 
9 AM - 5 PM, PST 



VIC-20 and C64 are registered trademarks of Commodore Business Mochines. Inti, 
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Sensational Prices! 

. . . On Our Most Popular Items! 



^Introducing . . . 

THE 990 DISKETTE 

Are you paying too much tor diskettes? Try our 
(irst quality, prime, Sv*" diskettes (no rejects, no 
seconds) at these fantasic sale prices and save, 
save. SAVE! Disks are packaged in boxes of 50; 
each tiox contains 5 shnnk-wrapped 10-packs thai 
Include diskettes in sleeves, iatiels, and wnte- 
protecl tabs. 

Each diskette is certified to be 100% error free and 
comes with a lifetime wan-anty (if you have a 
problem, we'll replace the diskette). All diskettes 
include hub reinforcement rings and write- 
prolect notch. 

All diskettes are double density and work in either 

Single or double density drives 

SS. DD Diskettes, Box of 50 

32391 S49.50-i99t ea.l 

DS. OD Diskettes. Box of 50 

32403 564.50-»1 29 ea.! 



The Most Complete Disk Drive 
You Can Buy 

Includes Word Processor, Spread Sheet, and 
Data Base Manager 



INDUS GT 



ONLY 



•259 



Stale -of -the-act disk dnve for C-64 and VlC-20 lealures LED 
sector indicator. efedrofifC vttn&-pTC\d&. built-rn wed9e. and 
operating speeds up 1o 400% faster Package includes cables 
and powflf suppfy. carrying case ttiai doubles as a disH si&rage 
file AND software starter pai:hage feaiunng word processor 
Spreadsheet, and database manager program' 

FULL YEAR PARTS AND LABOR WARRANTY " 



33443 IrxJus GT Disk Drive 



ONLY •259 



LOWEST PRICES! 

We ear offer you some of ihs lowast pnces m ihe country on Ihe most ^IL-^,_, 
popular printers, monitors and tnterlacss. Our normal pricss are already »iEK||ir 
low. but to make sure you get the best deal you can. we will also mee! most rr^TT^:'!'.! 
competitive prices in this publicalion when placed on an equal basis 
(Hemember— wo don 1 charge lor use ol your crotfil card, impose excessive EPSON 
shipping lees, or use any other hidden extras to boost the pr*ce you pay 
Due to the rapid change in prices in Ihe computer industry, we can only BMC 
meet prices at the time you place your order; we cannot adjust prrces on 
items ordered or shipped on an earlier date 1 Another plus lor charge card AXIOM 
customers— your charge card is billed al time ol shipment only (or the items 
shipped— no early billing, no long wait (or Ihe merchandise you already CARDCO 
pard tor 

* THE BEST PRICES * THE BEST SEFWICE » 
WHY SHOP ANVWHERE ELSE? 




(Jm) „om SAMS 



COIVIPUTERFACTS 

Technical Sen/ice Data for 
Your Computer and Peripherals 

Sams intiuduces COMPUTERFACTS^" poctou or ,itiormaiiw. ihn r».ai m. 
innar workinga ol msfor Srantf micros, moniurs. pnnlors and disk i3riv»s Includes sciiomajic wii. 
mg djAgrwtis. pans lists, disassemtily IfwWucliorH. iroutMshoatmg lochntquM. ana ntwi repair (UI4 

33477 CommodOfB 64 C^omptiWr 33496 Commoriore lS2b Printer 

33S13 VII>?C1 Compulor 335<K Commodore C»6 Computer 

33S$1 ComrnoAKB PlusW Computer 33546 Commodore 17D1 Monitor 
33461 Commodore 1541 Oish O'lve 




All packets 
S17.95 each 



GRAPHICS PRINTER INTERFACE 

The PPI (Parallel Pnnter Inlerlacel trom DSI is a higtt- 

performance graphics printer interface for your Commo- 

dors 64 Of VIC-20. offered at an unbelievable price' The PPI 

(ully emulates a Commodore pnnlar so that all software wntten 

(or Commodore computers and prlnlefs can be run with the PPI 

and most any parallel pnnter. Pnnt true Commodore graphics and 

alpha-numencs a$ well as any special character sets offered by your 

specific printer Works with Star. Epson. BMC. and many more Comes 

complete wilt) all necessary cables lor quick installation and includes 

easy-to-follow user's manual. 




335S5 Parallel Pnnter Interlace 



*44.95. 



XARTRIDGE EXPANDER 

^i^^ Plus S22.95 
^^ FAST LOAD 
^=JS OFFER! 

Slop wearing oi/i your compuier and canndg&s by BfKllBss swapping' New 
dw^ign cartridge expander features iw? canndge slots S^i^ct either cai- 
tfidge. 01 the off po&ttion il no cart/nJffe is to t» usco Rew! itie com- 
pLTier krM3ap«n(ient'ty ol it>e pcwef switcti Ganr>i(lg« Vat are vdriicai lor 
easy access— no blmid 'ymWing behind Iha compuler. 

34220 2-SlDt Cartridge Expander ^19.95 

Trw cartridge expanOor t» a great comp«niion tor ihe Epyi; Fast Load 
cartridge— you cart keep a permanently irwtalled plus tiawo a slot l^ee iix 
OttVftt {;ai1ru;lg«s! 

34216 Fast Load Cartridge (Sug Hetati»3495) '29.95 

Fast Load ONLY $22,95 
. with purchase of cartridge expander! 



DUST COVER and 
"EVERYTHING BOOK" 

INTRODUCTORY SPECIAL 

Gel 10 know us by ordering ih^s greai Oust covet 
for your VlC-20 or CommoOwe W atMj our cata- 
log. The Everythifkg Book for tire Commodore 
C-64 arxl VlC-20 Home Conpuiers. lof S2 95 
(no extra shrppng or harK]li<ng charges) Covet 
IS aniislatic. Iranslusceni. 6 gauge vinyl sewn to 
our pxacling siarvdatds with remfoiced seams 
Discover the savings and easy s^ooQlng avail- 
able trom Tones Computer Express' 

1^2.95 

^ 3ilB27 Dual Cover and Catelog J 



USE SINGLE SHEETS 

IN YOUR TRACTOR FEED 

PRINTER WITH 

PAPER TRACTOR 

Paper Tractor carries ordinary sheet paper 
through your tractor -leed pnnter' 
Simply place your letlerttead. checks. 
invoices, (orms. even legal -size sheets 
into Ihe durable (lenible plastic earner and 
leed into your adjustable tractor - dnve 
pnnter Works wilh any pnnter, carries any 
paper 



22084 



»11.95^ 



From Your Friends At 

T€N€X. 




We gladly accept 
mall orders! 

P.O. Box 6S78 

South Bend, IN 46660 

Questions? Call 
219/259-7051 



All 

A1A 



SHIPPING CHARGES 

ORDER AMOUNT CHARGE 

less than $20.00 

S20.00-S39.99 

$40.00-874.99 

S7S.00-S149.99 

$150.00-$299.99 

£300 & up 




NO EXTRA FEE FOR CHAR GES 
NO HIDDEN EXTRAS 

ORDER TOLL FREE 

1-800-348-2778 
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INVECTIVE 

for the C-64 



fnvective isn't like any other game you've 
ever played. Nothing chases you and you're 
not shooting at anything. You simply move 
around the game board collecting points by 
snapping up green figures at 10 points each. 

Of course there's a catch. The joystick is scrambled 
so that what used to move up now moves perhaps left, 
what used to move left now moves perhaps right, etc. 
The joystick is scrambied every 15 seconds to a new ran- 
domly chosen configuration. If you bump a blue figure 
the joystick gets rescrambled and you lose 20 points. If 
you bump a yellow figure you lose 50 points. 

In the first 15 seconds of the 90 second game, the joy- 
stick operates normally. After that it's hard going all the 
way, since everything is against you. You'll be lucky to 
make a score as high as zero the first few times you play 
Invective. 

That's all you need to know to play. From here on I'll 
just ramble about technical matters. 

When you type Invective there is no need to copy the 
blank lines or REM statement lines. 

Line 430 tells the computer to scramble the joystick 
every 15 seconds. If you'd like a different number of sec- 
onds, substitute your number for 15 at both places in the 
line. Line 680 limits play time to 90 seconds, which is 
expressed as 130 (for 1 minute 30 seconds) in the line. 

Lines 750 to 850 tell you how the joystick has been 
scrambled. The game is much harder if you don't have 
this information, so you might want to leave it out. The 
easiest way to do this is to change the command to print 
brown letters to a command to print medium gray let- 
ters. Since the background is medium gray the letters will 
be invisible. The print brown (Commodore key and 2 
key) is in line 750 and is easy to change to print medium 
gray (Commodore key and 5 key). 

Tfou may be wondering how the joystick can be scram- 
bled. The normal way to use the joystick is to first get 
the value in the joystick address (location 56320). This 
value is then ANDed with 15 to get rid of the meaning- 
less first four bits of the byte. The result is then sub- 
tracted from 15, A result of means no change, 1 means 
up, 2 means down, 4 means left, and 8 means right. So 
far that's all by the book and all that remains is IF state- 



By George Ik-epal 

ments. If the value is 1 move up, if 2 move down, and 
so on. But what would happen if we told the computer 
to move right instead of up when the value was 1? An- 
swer: it would work just fine. 

The values on how to move are held in the J( ) array 
and the pointers relating the J() values to the joystick 
are in the SA( ) array. 

Lines 690 and 700 shuffle the SA( ) array. The algo- 
rithm starts with the first element of an array and ex- 
changes it with a randomly chosen element of the array. 
It then repeats the process with the second, third, etc. 
elements. This technique is useful for computer card shuf- 
fling. D SEE PROGRAM LISTING ON PAGE 112 



Naltodtf cofuei ietteA, !i 
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Since November 1984, Mr. Nibble has 
successluHy copied heavily protectee} 
disltelles lor grateful C-64 owners! 



WkiU otUtAi. pwmiu, 



dtlUtafUl 



The rtexl generation in archival 
methods is here today! 

• Wo better disk copter at any price 

• Eazy-to-use — no corriplicated 
instrucuons 

• Totally automatic — no ltf>owtedge 
01 DOS reQwert 

• Youll LOVE MP. NIBBte" - \l r\0l. 
return within 10 dayi lot lull refund 

Own THE FINEST DISK COPIER SYSTEM for 
The C-64 and 1541 disk dnve - (94^L| / fff/ - ^ / 



FUtL CIHCLE SOFTWABE. <NC, 

PO Bo« I3?a 

Dayton. Ohto 45401 

Phone<513)2i3-JT0J 



Full Circle 

I Soft WAT* J 



Ot*"*"^ I0lii*« f*t«»n« •!*««•» ♦■It* U 



Si 



10 dcy wtkfm prtvflvg* 



Special MSD Version now available! 



J 
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C-64 and 
C-1 28* OWNERS: 





Do you know the full contents of all your Disks in your Software Library? 

Stop playing "Hide-and-Seek" with your Disk software! Let your Commodore 64"™ 
"memory" do all the work for you. Easy Manual and Program Menu-Screens make 
everyone a "pro" in 1 day! 

Here's a small "PEEK" at SOME of the FULLY-INTEGRATED POWER of 
PRODUCTIVITY at your fingertips. . . 



MASTER DISK©: 

• a SORTED Master Catalog of ALL your Disks 
(even those un-listable "protected" Directories: 
Names, ID'S, File info, etc,} 

• Search + List any Fiie/Disk/ID in seconds, auto- 
matically, in any of SEVEN WAYS. 

• Transfer ML-Programs or Files from Disk to 
Disk (CATEGORIZE your software) 

• Stop disaster before it strikes: change dupli- 
cate ID'S fast, without total re-copy. 

• Restore accidentally-scratched files in a flash, 
with VERIFICATION that they're OK. 

• Works with 1 or 2 Single Disk Drives (1541, 
MSD, etc.) with or without Printer (Commodore 
or ASCII). 

• Handy-Reference Card for HEX/ASCII/ 
BINARY-TO-DECIMAL VALUE TRANSLA- 
TION + FORMULAS, included FREE. 

• All this + MUCH MORE, for just $34.95. (U.S.A.). 



NEW!! - MASTERDUAL©, 

"Son Of MASTERDISK©" . . . 

same power, but with 

Dual Drive Speed! 

• Same Catalog Features as MASTERDISK© 

• Same Disk repair functions, too 

• For all C-64 & C-128' systems with Dual Disk 
Drives (4040. MSD, etc.) 

• Utilizes all Dual Drive functions for maximum 
speed and ease of use 

• FREE Handy Reference Card for HEX/ASCII/ 
Binary to Decimal Translation + Formulas 

• Experience FULLY-INTEGRATED POWER for 
just $29.95 (U.S.A.), $39.95 (Canada) 

$45.95 (Canada) 



'MASTERDISK© and MASTERDUAL© are also compatible with the NEW C-128 (in C-64 Mode)! 

Don't MESS with anything LESS! OUR CUSTOMERS WRITE: 

"Been meaning to write and let you know how much I've enjoyed it . . . 
So. let me say that MASTERDISK Is EXCELLENT. '■ - Middletown. NY 

"... just the thing I need. " — APO, NY (Germany) 

"Hope to get my [MASTERDISK] yesterday." — Maple Grove, MN 

"I am impressed with your product and would like to be able to endorse it for TPUG. 

"... nothing else even comes close!" — Burlington. lA 



Ontario, Canada 



We ship within 24 hours! Send Money Order or Check to: 



INTEGRATED-SOFTWARE SYSTEMS 

P O. Box 1801. Ames. lA 50010 

VISA/M.C./C.O D , CALL (515) 233-2992 

9 am - 9 pm (Central Time) Mon.-Fri. 

Add $3 Shipping/plus S2 Foreign, C.O.D, 

lA Residents add 4% Sales Tax. 



IN CANADA: Cricket Distribution Co., 

P.O. Box 953, Cobourg, Ontario. Canada K9A 4W4 

VISA/MC./C.O.D . CALL (416) 372-3692 

9 am ■ 6 pm (Eastern Time) Mon.-Fri. 

Add S3 Shipping/plus S2 C.O.D. 
Ontario Residents add 7% Sales Tax 



Whether you have tens or hundreds of disks, now YOU can be the MASTER 
of your TOTAL Software Library! 



t 



f 



Header Service No. 142 



SUPERHERO 

for the C-64 

By James C. Hilty 

A meteor storm has caused the space shuttle 
to move off course and rapidly gain alti- 
tude. Upon reaching an altitude of 800 
miles, the shuttle will be lost forever. The 
only hope of saving it is you. the Super- 
hero. \bu must destroy 10 golden meteors before the shut- 
tle reaches 800 miles. But beware— hitting the green Zyp- 
tonite meteor will render you powerless and the game 
will end. 

The game opens with the title screen, then a graphics 
chart depicting the Superhero, the space shuttle, and the 
meteors. The playing screen incorporates a randomly 
drawn maze. The Superhero character is at the upper right 
of the maze, while a Zyptonite meteor is at the upper 
left. A joystick in Port 1 allows you to move Superhero 
while he tries to get the 10 gold meteors which are placed 
along the maze. The Zyptonite meteor moves randomly 
throughout the maze. Colliding with the Zyptonite me- 
teor finishes you off. 

The altitude is constantly displayed along with the 
score. If the shuttle reaches 800 miles, the game is over. 
Each meteor you destroy is worth 10 points. Getting all 
10 of the meteors before the shuttle reaches 800 miles 
gives you bonus points, lowers the altitude, and allows 
you to progress to a new maze. 

The running Superhero figure and the space shuttle 
in the maze cutouLs are sprites which react to the differ- 
ent conditions going on in the maze. 

The main loop (lines 870-950) u.ses a machine language 
joystick routine to move the Superhero character. The 
Superhero in the maze cutout is animated by POKEing 
different values into SPRITE O's memory pointer. A re- 
play option is incorporated at the end of the game. D 
SEE PROGRAM LISTING ON PAGE 101 

START & END 
FILE ADDRESS 

for the C-64 

By David S. Smart 

As well as giving the start or load address 
of a file, this little program will give the 
length of a file and the end address. 
The program begins by initializing the 
disk and then requesting the name of the 
file to check. It will then give the start address in both 
hex and decimal and continue on to read in the file. It 
then gives the length of the file in bytes and finally the 
end address in hex and decimal. 

If you have another program residing in the cassette 
buffer, the machine language portion of this one can be 
easily relocated. D 

SEE PROGRAM LISTING ON PAGE 109 



SIQP1HE SPREAD 
OFA DEADLY VIRUS. 

Quick. Deadly viruses are rapidly multiplying. If you 
don't act fast, they'll infiltrate your entire bloodstreann. 
And in seconds it'll be over. So blast the invaders with 
interferon. And annihilate them with macro- 
phages. With Cell Defense, you con- 
trol your own immune system. 
You'll discover basic concepts in 
biology. And explore exciting 
scientific strategies. While 
at the same time, leading 
an attack against a host{ 
deadly viruses. So get 
yourself the science 
simulation game Cell 
Defense. Your life may 
depend on it. 

CELL DEFENSE BY HESWIRE 

Suggested Retail Ipl^.yO 

CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DBECT: 

HESWARE P.0B0X631 S. SAN FRANCISCO. CA. 94083-063 1 

ADD S2.00 FOR POSTAGE AND HANDUNG. VISA AND MASTERCARD AVAILABLE. 




PUSHMITHE 

RIGHT BiniDNS AND 

YDUCOUUBETHENEXT 

ANERIC&N IN SMCE. 

The race for space is not a ganne. It's a reality. That's why 
we developed a program that will challenge your^ 
ability. Expand your mind. And keep you 
fascinated for hours. Projea Space Sta- 
tion is the most sophisticated way to 
learn to design and operate a space 
station. You'll even use the 
elements of theactual process 
NASA uses in their design. 
You can take on the mission 
yourself, or bring along your 
family and friends. So get 
working on Project Space 
Station today. America's astro 
nauts are counting on you. 

PROIECT SPACE STATION BY HESWARE 




Suggested Retail 



$24.95 



CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 

HESWARE P.OB0X631 S. SAN FRANCISCO, C A. 94083-063 1 

ADD S2.00 FOR POSTAGE AND HANDLING. VISA AND MASTERCARD AVAILABLE. 
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How to use sprites effeaively in your Commodore 64 

action games — including Pig in a Pol<e, a simple 

children's game that uses sprite movement, 

shapechanging, and collision deteaion. 



CRIEATING YOUl? OWN GAMIE5 



ONTMI=VK:A^4l^64 




In case you're one of those people who always 
wanted to grow up to be a swineherd, this is your 
lucky day. The program Pig in a Poke, included 
with this issue of Ahoy!, is just what you've been 
waiting for. 
If, on the other hand, you're a nearly normal adult, 
you'll find that Pig in a Poke is not exactly challenging— 
it's about at the ability level of a four-year-old. 
But that's all right. Four-year-olds need games, too. 
And for those of you who are a bit older, the program 
is a clear demonstration of how to use sprites in game 
programming. It's very simple, using only one sprite and 
two sprite shapes, with the pli^er able to control only 
horizontal movement. But by the time you're through 
studying the program, you'll know how to create sprites, 
move them, do shape-flipping, detect collisions, and make 
the sprite bteract with the playfield and the player's in- 
structions. And that's not bad for a simple program about 
a cute Utde pig trying to avoid the butcher's shop. 

HOW TO Mjnr 

Once the program has finished setting up, youll have 
a little pig on a grassy field. However, the robot swine- 
herding machinery is in action, with moving fences 
sweeping across the field, trying to herd the pig toward 
the top of the screen. 

"Vbu are the pig. All you have to do is run from side 
to side to avoid those ffences. If they touch you, they'll 
push you upward, toward the top of the screen; but if 
you stay in the gaps between the fences, you'll be safe. 
Eventually, after fifty fences have gone by, the swine- 
henis will give up and you'll be safe. 

\bu control the pig by pressing the SHIFT key to move 
right and the COMMODORE key to move left. If you 
want to quit the game early, press SHIFT, COMMODORE, 
and CTRL all at the same time. 

The game will end when fifty fences pass by; when 
you press SHIFT/COMMODORE/CTRL; or when the 
pig reaches the top of the screen. 

WHY ARE SPRITIS SO OOOD? 

The pig is, of course, a sprite. But there wasn't any- 
thing I did with that pig that couldn't be done with cus- 
tom characters, was there? 

Shapes and Sizes. Certainly the shape of the pig could 
have been duplicated with custom characters— six char- 
acters, in fact, to make the whole shape. That's because 

j,the pig is made out of 10 rows of dots, 23 columns wide. 

: Since each character is eight dots by eight dots, it would 

I take six whole characters to make the pig shape, two rows 

i of diree characters. 

B\j Orson Scott Card 
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HAS EVERYTHING! 



"TrTr.Tr~---Tr"rvi 



SUBSCRIBE TO AHOY! 

a Twelve Issues for $19.95 ($26.95 Canada and elsewhere) 
G Twenty-four Issues for $37.95 ($49.95 Canada and elsewhere) 

Name 

Address , , 

City State Zip 



Send coupon or facsimile to: 

ION INTERNATIONAL INC. 

45 West 34th Street, Room 407, New York, NY 10001 

.— — — — ^ «——.-.— —J 



The sprite can even be bigger than the pig. While the 
maximum width of a sprite is 24 dots, it can be up to 
21 rows in height— more than twice as tall as my little pig. 

Furthermore, the 64 allows you to change the size even 
more. You can double the sprite's width, or its height, 
or both. When you choose to expand the sprite, the VlC-2 
video chip takes the shape from memory and doubles 
each dot; the pattern remains the same, but it is spread 
out over twice as many dots on the screen. If you dou- 
ble the width, the sprite then becomes 48 dots wide 
(though the pattern is still confined to 24 dots, each of 
which is doubled when it is displayed). If you double 
the height, the sprite becomes 42 dots high. 

One-byte Re^sters. Sprite expansion is controlled with 
the two sprite expansion registers. Each bit of the single 
byte of the horizontal expansion register (at 53277) con- 
trols a single sprite. Sprite is controlled by bit 0, sprite 
1 by bit 1, and so on to sprite 7, controlled by bit 7. If 
a sprite's control bit contains a 1, its width will be dou- 
bled; if it contains a 0, the width remains normal. 

For instance, let's say you want to double the width 
of sprites 0, 1,2, and 7, but leave the other sprites alone. 
To turn on sprite 0, you need a 1 for bit 0, which has 
a decimal value of 1. Bit 1, when "on," has a decimal 
value of 2. Bit 2, when "on," has a decimal value of 4. 
You notice the pattern, of course -each bit's "on" value 
is double the "on" value of the bit before. Bits 3, 4, 5, 
and 6 have decimal values of 8, 16, 32, and 64-but since 
we aren't using them, we won't include those decimal 
values in our number. We will include the value of bit 
7, however, which is 128. 

Combine those, now: 1 + 2 -H 4 -h 128 = 135. To 
double the width of sprites 0, 1, 2, and 7, you only have 
to POKE 53277,135. 

Several of the sprite control registers control all eight 
sprites with a single byte, each bit serving as an on-off 
switch for one of the sprites. In every case, bit con- 
trols sprite 0, bit 1 controls sprite 1, and so on. 

That's why in Pig in a Poke -as with any other pro- 
gram where 1 use sprites— I set up two arrays to control 
the on-off switches for the different sprites. The bit-set 
array, BS(0-7), contains the values 1, 2, 4, 8, 16, 32, 64, 
and 128. Then, when I want to turn on, or "set," the bit 
that controls, say, sprite 4. 1 only have to: 

POKE 53275, PEEK (53275) OR BS(4) 

The other array, BC(0-7), is the bit-clear array, h con- 
tains the values 254, 253, 251, 247, 239. 223, 191, and 
127. Each value is a bit-mask: every single bit is "on" 
except the bit that controls the sprite in question. (The 
maximum value of a byte -all bits "on"- is 255. So the 
bit-mask for bit is 255-1, or 254; the bit-mask for bit 
3 is 255-8, or 247; the bit-mask for bit 7 is 255-128, or 
127.) 

Then, when 1 want to turn off, or "clear," the bit that 
controls sprite 4, I only have to: 



POKE 53271, PEEK( 53271) AND BC(4) 

Changing Shapes. The sprite is also versatile in its 
shape. You can store, theoretically, 64 separate sprite- 
shapes in the 16K block of video memory. (Actually, you 
need to leave at least IK for screen memory in text mode, 
plus room for as much character memory as your pro- 
gram needs.) Each of the eight sprites on the screen can 
take its shape from any one of the shapes you've stored 
in memory. 

You could have all eight sprites look exactly the same 
by telling the VIC-2 to take their shape from the same 
pattern. 

Or you could have one sprite cycle through dozens of 
different shapes in an animated sequence, with a single 
POKE for each change. 

The sprite shape location registers aren't always in the 
same place, and their code is a bit complex. To under- 
stand how to use them, let's review some things we've 
covered in earlier columns. 

Review of Video Blocks. As you remember, the VIC-2 
video chip can only see 16K of RAM at a time. So all 
the graphics features have to be located in that 16K block: 
screen memory, character memory, sprite shapes, and 
bit- map memory. (The only exceptions are color mem- 
ory, which is always at 55296-56319, and ROM charac- 
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ter memory, which is really located in a switchable bank 
at 53248-57343, but is seen by the VIC-2 at 3686440959 
when it is using the third video block, and at 4096-8191 
when the VIC-2 is using the first video block. This is 
automatic, so once you select one of those blocks, the 
character set will be present for your use.) 

The four possible video blocks are at OK (from to 
16383), at 16K (from 16384 to 32767), at 32K (from 32768 
to 49151), and at 48K (from 49152 to 65535). When the 
64 powers up, it is using the first video block, starting 
at OK. It puts screen memory at 1024 and sees the char- 
acter set as if it were at 4096, This won't be too helpful 
when you're using sprites, however, because your BASIC 
program starts at 2{)48 and runs right through this whole 
block— there are only a few nooks and crannies into which 
you can tuck a sprite shape or two without bashing the 
BASIC program. 

Often you'll use the second video block, at 16K, espe- 
cially if your BASIC program is short enough to leave 
you some room. However, in that block you have to define 
your own character set. The third video block, at 32K, 
allows the VIC-2 to see character memory at 36K. You 
also can't use the last 8K of this block, from 40K to 48K, 
because that is BASIC ROM! But you still have 4K to 
contain screen memory and sprite shapes— and most of 
the time that will be enough, with plenty of room below 
32K for a long BASIC program. The fourth block, at 
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48K, contains so much ROM that it's virtually unusable 
for video purposes. 

The first two bits of the register at 56576 tell the VIC-2 
which video block to use. First you AND the register 
with 252 to blank out those two bits, then OR it"with 
the code for the video block you want. The code for OK 
is 3; for 16K, 2; for 32K, 1; and for 48K, 0. (You need 
to diddle with the data direction register at 56578, ) Here's 
how to select the 32K block: 

POKE 56578, PEEK(56578)0R 3:P0KE 56576, (P 
EEK(56576)AND 252)0R 1 

You also need to tell the VlC-2 where screen and char- 
acter memory are, which is done at 53272; and tell BASIC 
where to fmd screen memory by POKEing the page num- 
ber into 648. In Pig in a Poke, screen memory is right 
at 32K, which to the VIC-2 is OK within the video block; 
BASIC uses the absolute page number, which is 128. 
Character memory is at 36K, which to the VIC-2 is 4K 
within the block. So the number POKEd into 648 is 128, 
and the number POKEd into 53272 is character mem- 
ory IK boundary plus sixteen times screen memory IK 
boundary, or 4-1-16*0. (For those of you who grew up 
with the New Math, that adds up to 4. A lot of work 
just to gel a dumb little one-digit number, isn't it?) 

Now that we've told the VIC-2 where to fmd all this 
stuff, where are those sprite location registers? The sprite 
location registers are the last eight byres of the IK block 
where screen memory resides. That's why we had to go 
through all this rigmarole, \bu have to know where screen 
memory is to find out where the sprite location registers 
are. The address is video block address plus screen mem- 
ory IK boundary times 1024 plus 1016. In Pig in a Poke. 
that's 327684-0-^1023, or 33791. 

Each sprite shape location register contains a number 
from to 63, representing one of the 64 possible 64-byte 
blocks of memory within the video block. For instance, 
a 10 tells the VIC-2 to look for the block starting at ad- 
dress video block plus ten times 64. A 55 would tell the 
VIC-2 to look at video block plus 55 times 64. Since our 
video block starts at 32768, sprite shape block number 
10 (the eleventh block, since the first block is numbered 
0) starts at 32768-)- 10*64, or 33408. 

However, since screen memory in our program starts 
at 32768, and uses 1000 bytes of memory, that sprite block 
is within screen memory. Now, this doesn't cause the 
VIC-2 any trouble. It will merrily display both the screen 
and the sprite, using overlapping regions of memory. 
VIC-2 doesn't care. But you probably will. As the screen 
display changes, so will your sprite shape! 

A Small Example. Let's throw a sprite shape onto the 
screen showing just how that works. Power up your 64, 
and enter the following program lines in direct mode. 
Notice that we will not change the video block -we're 
using the screen as you normally have it. 

POKE 53269,1 
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This enables sprite 0. 

POKE 53248, 175:P0KE 53249,135 

This puts the sprite at horizontal coordinate 175 and ver- 
tical coordinate 135. That's just about in the middle of 
the screen. 

You'll notice that at this point the sprite is a rectangu- 
lar display of garbage. But it isn't just any garbage -it 
is the garbage pointed to by the sprite shape location reg- 
ister for sprite 0. Remember, this is found at byte 1016 
from the start of screen memory. The default screen mem- 
ory for the 64 is at 1024, so that the sprite location 
register is at 1024+1016, or 2040. 

Upon powering up, my machine puts a 32 at 2040. 
This means that until I change it, sprite will display 
whatever is in memory at 0-1-32*64 (video block OK plus 
64 times sprite shape location code 32), or 2048. It just 
so happens that this is the address of the beginning of 
the BASIC program area. Just enter a few meaningless 
lines, like 100 REM and 200 REM THIS IS JUST A 
TEST. With each line you enter, youll see the sprite shape 
change as BASIC builds a program in the sprite shape 
block. (If your 64 shows something else, POKE 2040,32 
and enter or delete program lines.) 

Now let's move the sprite shape block somewhere else. 
In direct mode: 

POKE 2040,2 

Right in the middle of the sprite you'll see some flic- 
kering dots. These are the constantly changing bytes at 
167 and 168, where the operating s-ystem maintains a clock. 

Can't see it clearly enough? Try using the horizontal 
and vertical expansion features: 

POKE 53271,1 

That makes it nice and tall. 

POKE 53277,1 

And now it's fat, too. If you POKE zeroes into the same 
location, it becomes short and skinny again. 

Bits to Make Shapes. How does the VIC -2 read the 
sprite shape matrix? Basically, it reads the matrix the w^ 
we read books, starting at the upper left-hand comer of 
the sprite shape and reading across to the right; when 
the line ends, it drops down to the left-hand edge of the 
next line. Each of the 24 dots on each row is represented 
by one bit in the sprite shape block. The first byte of 
the block contains the bits that control dots 0-7 of the 
first row of the shape; the second byte, dots 8-15; the 
third byte, dots 16-23. That's all for the first row, so the 
next byte in the shape block controls dots 0-7 of the sec- 
ond row of the shape, and so on, until the 63rd, or sec- 
ond to last, byte of the block controls dots 16-23 of the 
row 20 (the 21st row, since we began with row 0). The 



very last byte of the 64-byte sprite shape block controls 
nothing at all -the VIC-2 ignores it, and so can you. 

The example program Basic Sprites shows how to cre- 
ate sprite shapes quite easily. The routine in lines 800-810 
reads some DATA statements that contain the sprite 
shapes as strings. This is so you can design the shape 
right there on the screen without any complicated graph 
paper calculations. Each string represents one row of the 
sprite shape, with asterisks representing "on" bits and pe- 
riods representing "off bits. The routine breaks the string 
into three 8-character chunks, each of which corresponds 
to a byte of the sprite shape block. Byte by byte, row 
by row, it reads, converts, and POKEs in the sprite shape. 

Since we're only using two sprites and three sprite 
shapes, they are being POKEd into the cassette I/O buffer 
at 832 (sprite shape block 13), 896 (block 14), and 960 
(block 15). Thus they don't interfere with BASIC'S pro- 
gram storage above 2048. We aren't doing any fancy 
changing of the video block for this program. 

And once it's SAVEd, you can go ahead and change 
the sprite shapes in the DATA statements starting at 810. 
Just remember that every string has to contain 24 char- 
acters, one for each bit of the sprite's width, and there 
must be 21 strings per sprite, one for each row of the 
sprite shape block. 

Movement. With character graphics we were able to 
move objects around the screen with some good speed, 
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using the PRINT command. However, since a character 
can only be in one 8-by-8 grid or another, each move- 
ment had to be at least eight dots at a time. It looks jumpy 
and is hard to watch. 

Sprites can move much more smoothly, since they aren't 
mapped onto the text screen. They can move one dot at 
a time, vertically or horizontally, as the program Basic 
Sprites showed. (The program Pig in a Poke moves the 
pig two dots at a time horizontally, to increase the speed; 
that's about as big a jump as you can take without losing 
smoothness. It also moves eight dots at a time vertically, 
so it will always stay in alignment with the character- 
graphics fences.) 

Each sprite has its own horizontal position register and 
vertical position register. These registers start at 53248. 
They proceed in order, staning with sprite O's horizon- 
tal position register at 53248, sprite O's vertical position 
register at 53249, sprite I's horizontal register at 53250, 
sprite I's vertical register at 53251, and so on. 

The registers contain coordinates that correspond with 
dots on the screen. They always specify the location of 
die dot in the upper left-hand comer of the sprite's shape 
matrix. This has nothing to do with whether that dot is 
turned on or not— even if your whole sprite shape is 
crowded down at die bottom of the shape block, the 
VIC-2 will still use the position registers to calculate the 
location of the upper left-hand comer of the sprite shape 
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block. 

A sprite can be half on and half off the display area. 
Whatever part of the sprite is past the edge of the dis- 
play area and into the screen border will seem to move 
"behind" the border- that is, the dots that are off the edge 
of the display area are simply not displayed. 

That's why a sprite with a horizontal or vertical posi- 
tion of is completely off the screen -it's "behind" the 
border. The leftmost position a sprite can have and still 
be completely visible on the screen is 24. The highest 
position is 50. The first position to the right that will 
have the sprite completely off the screen is 344, and the 
first position on the bottom that will make the sprite com- 
pletely disappear is 250. (When the sprite starts to dis- 
appear on the right-hand edge or the bottom of the screen 
depends on whether or not it has been expanded in ei- 
ther direction.) 

You'll notice, though, that the horizontal position can 
go well over 255, which is the highest number that can 
be POKEd into a single byte of memory. This means that 
once the sprite reaches horizontal position 255, the hor- 
izontal position register can't possibly move it any far- 
ther to the right -the number 256 cannot be contained 
in the register. 

The VIC-2 gets around this by putting a sort of Inter- 
national Date Line at position 256. When the sprite reach- 
es that horizontal position, a flag bit is set Somewhere 
Else, and the horizontal position register starts over at 
0. So to move across the International Date Line, you 
POKE the horizontal register with 253, 254, 255, then 
set the flag bit, and go on with 0, I, 2, and so on. 

The flag bits for all eight sprites are in a single regis- 
ter at 53264. Sprite O's flag bit is bit 0, and so on, as 
with all the other one-byte sprite control registers. If a 
sprite's flag bit is clear (contains a 0), then the VIC-2 
will count the sprite's horizontal position from far left 
of the screen; if a sprite's flag bit is set (contains a I), 
then the VIC-2 will count the sprite's horizontal posi- 
tion from die International Date Line right on the screen. 

To handle the horizontal and vertical ranges smooth- 
ly, both the Basic Sprites example program and the Pig 
in a Poke game use three arrays. The array VV(nJ con- 
tains all the "valid" vertical locations. In Pig in a Poke, 
there are only 20 valid vertical positions, at every eighth 
row starting with row 53, So in lines 900 and 906, this 
array is set up to have 20 elements, from to 19, which 
contain, in order, the vertical position codes 53, 61, 69, 
77, 85, 93, 101, 109, 117, and so on to 205. Now the pro- 
gram only has to keep track of which of the twenty valid 
vertical positions die sprite should be on, using the vari- 
able VP. Then it sets die vertical positions with POKE 
53248,VV(VP}. 

A similar thing is done with the horizontal position, 
except that two arrays are used. The first array, HH(nj, 
contains all the valid horizontal position codes for the 
horizontal position register. The second array, HB(n), 
contains the flag bits for the register at 53264. Each time 
the sprite is moved horizontally, both numben; are POKEd 
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into the control registers. 

Why both numbers every time? For smoothness. You 
could use an IF-THEN test to change the flag bit only 
when the sprite is actually crossing the International Date 
Line. But in a BASIC program, with its slow POKE state- 
ment, that will mean that the sprite hesitates for a mo- 
ment. By POKEing those values every time, overall 
movement will be slower, but there's no hesitation. (How- 
ever, in either case there will be a bit of blinking at that 
point, because for the moment between POKEing the 
horizontal register the POKEing the flag-bit register, the 
sprite will be completely offecreen. This is avoidable only 
in machine language.) 

Another solution, of course, is to keep your sprites from 
crossing the International Date Line at all. Display some- 
thing else to the right of the line, and keep the sprites 
always to the left. No flicker then! 

Three Dimensions. The priority register at 53275 con- 
trols whether the sprite moves in front of objects on the 
screen or behind them. Each bit of the byte at 53Z75 con- 
trols the corresponding sprite. If sprite O's bit, bit 0, is 
set (equals 1) then the sprite will seem to move behind 
objects on the screen. That is, the sprite will be visible 
whenever it is in front of the background color of the 
screen, but every dot that is on the same spot as a dot 
in a character shape on the screen will be invisible— the 
character shape will seem to be in front of the sprite. 
If bit is clear (equals 0) then the sprite will move in 
front of the character shape as well as the background. 

This lets you create the illusion of three dimensions 
on the screen. However, setting and clearing individual 
bits of the priority register is so cumbersome that in a 
BASIC program you will probably want to set the priority 
once and leave it alone. Only in machine language can 
you fiddle it on and off without slowing down program 
execution hopelessly. 

Collisions. For game programming, one of the most 
important features of sprites is that the VIC-2 automati- 
cally keeps track of whether sprites have bumped into 
each other or into any character shapes on the screen. 
Two collision registers keep track of whether each sprite 
has been involved in a collision since the register was 
last checked. To see if sprite 4 has bumped into another 
sprite, examine bit 4 of the sprite/sprite collision regis- 
ter at 532?8. To see if sprite 7 has bumped into any of 
the character shapes (or bit-map designs) on the screen, 
examine bit 7 of the sprite/foreground collision register 
at 53279. 

When does a collision take place? Only when an "on" 
dot in the sprite shape occupies the same screen posi- 
tion as an "on" dot in another sprite or an "on" dot in 
a character shape. If the transparent portion of a sprite's 
shape matrix passes over another sprite or a character, 
nothing happens to the collision registers. Only when the 
dots that are actually displayed come into "contact" is a 
collision reported. 

The collision registers "remember" every collision until 
your program PEEKs (or LDAs or CMPs, in machine 



language) the collision register. This means that you 
should always clear the collision registers by PEEKing 
them once at the beginning of the program, before you 
start checking them in earnest. Also, it means that you 
can't PEEK the sprite/sprite register to check for a colli- 
sion for sprite and then check it again for a collision 
for sprite 1— when you checked it the first time, it was 
erased! That's why you'll want to put the byte in a vari- 
able, like this: Z=PEEK(53278). Then you can check 
the variable Z to test for as many collisions as you want. 

Unfortunately, these registers don't teU you hMcH sprite 
or character shape you bumped into. Of course, if only 
sprites and I in the sprite/sprite collision register re- 
port a collision, you can bet they bumped into each other. 
But if sprites 0, 1, and 2 report a collision, you don't 
know if both and 1 bumped into 2, but not into each 
other, or if they all bumped into each other— and it can 
get even more complex. 

To know which sprite was bumped, you either have 
to track the location of every single sprite (in which case 
a BASIC program will crawl along at the speed of a stu- 
dent driver), or you have to decide that all sprite colli- 
sions have the same effect, so you don't care which sprite 
bumped which. 

That's what Pig in a Poke does. Since there's only one 
sprite onscreen, there can't be any sprite/sprite collisions 
at all. And any collision with character patterns has ex- 
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DISK SLEUTH ORGANIZING SYSTEM 

Ca laiogs the contents ol up to 1 00 disks intq one 
alphabetized master directory disK. Each entry 
contains full program mlo.. including 40 characters, 
of your personal com ments. Master dtrectory can 
be viewed^ printed, or seafCh&d. Allows Key tMes 
10 grojp progoms. MSD or 1541. S349S 

ELECTRONIC CIRCUIT ANALYSIS 

Two powerful programs lo analyze tfie frequency 
and phiase response of most any electroniccircuit- 
Analyzes ladder circuiisof UP tD200 components, 
and user specified circuits ol up to 40 componenis 
and 25 lunciions- Resistors, C3pacitc>rs, inductors, 
NPN and FET transistors, op-amps and ifana- 
(ormers. $29,95 



ELECTRONIC CIRCUIT DESIGN 

1 3 programs to design active and passive ittters 
(22 types) and solve numerouselectromc design 
problems mcludirtg. resonar^ce. Olim's law. decitie) 
conversions, attenuators, and more. SI 9.95 



CURVE FITTING 

Fits your X,Y data lo 20 diftereot fnalhematicai 
Curve types and selects those which best fit the 
data. The curves can be used lo make projections 
based on the date, and to express the data 
mathmaiically m programs £29.95 



Ah programs available on disk ooEy lor the 
Commodore 64. Include S2.00 postage pei 
Older. Calitornia residents adii 6*% sales lax. 

Nd} DIGIT 
SOLUTIONS 

3243 Artington Avenue, No. 195 Riverside, CA 92506 
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actly the same effect -bouncing the pig toward the top 
of the screen. 

If I had wanted to have characters on the screen that 
the pig could touch at will, then I would have had to use 
sprites for the fences moving up the screen. In that case, 
sprite/foreground collisions would have been ignored, and 
only sprite/sprite collisions would have mattered. Fur- 
thermore, it wouldn't have mattered which sprite the pig 
bumped into, because any sprite would have the same 
effect. 

Any time it doesn't matter which sprite the player's 
sprite bumped into, collision handling is simple. When 
it does matter, it becomes complex and generally has to 

SPRITE MEMORY MAP 

For ea.sy reference, here are the sprite-control registers in the Com- 
modore 64. For explanations, see the text of the article. 

Floating Memory Locations 

1016-1023 after the start of screen memory (default 2040-2047): 
The eight shape location registers. (If you're using bit-map mode, 
they can be found at bytes 1016-1023 after the beginning of bit-map 
color memory.) 

0-63: The codes for the possible location of each sprite shape block 
within the video block. The actual address is found by multiplying 
this code by 64 and adding the result to the absolute address of the 
start of the video block. The first 63 bytes of the sprite shape block 
determine which dots will be "on." Every 1 bit causes a dot to be 
displayed; a bit allows the playfieid display to show through. 

Permanent Contrui Regi.<>ters 

53248. 53250, 53252. 53254, 53256. 53258. 53260, 53262: Hor- 
izontal position registers for sprites through 7, in order. 

53249, 53251. 53253, 53255, 53257, 53259. 53261, 53263: Verti- 
cal position registers for sprites through 7, in order. 

53264; Flag-bit register for horizontal position of all eight sprites. 

53269: Sprite enable register, (255 enables all sprites; disables 
all sprites.) 

53271; Sprite vertical expansion register. (255 expands all sprites,) 

53272; Screen and character memory location register. Where 
screen memory is located determines where the sprite shape location 
registers are located. The high four bits arc signillcant for screen 
memory location: 

screen tota/(wi=(PEEK(53272)AND 240)/I6-I-M"(feo block 
starting address 

53275: Sprite priority register. (0 means all sprites appear in front 
of foreground; 255 means all .sprites appear behind foreground.) 

53276: Sprite multicolor enable register, (255 makes all sprites 
display using multicolor option.) 

53277: Sprite horizontal expansion register. (255 expands ail 
sprites.) 

53278: Sprite/sprite collision register. (0 means no collisions; 
PEEKing this location clears the register.) 

53279: Sprite/foreground collision register (0 meaas no collisions; 
PEEKing this location clears the register.) 

53285: Sprite multicolor register 0. controlling the color of 01 
bit-pairs. 

53286: Sprite multicolor register 1. controlling the color of 11 
bit-pairs. 

53287, 53288, 53289, 53290, 53291. 53292. 53293, 53294: Sprite 
color registers for sprites 0-7, in order. Default colors are white, 
red, cyan, purple, green, blue, yellow, and medium gray (In multi- 
color mtxje. these registers control the color of 10 bit-pairs.) 

53276: Video block selection register. Bits and I determine which 
video block the VIC-2 chip will read. 
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be handled in machine language. 

Other Features. Sprites have several other possible 
features, which I'll discuss in later columns, like multi- 
color display. These features have their own registers, 
which are mentioned in the Sprite Memory Map but not 
explained here. 

The sprites' colors are controlled by eight sprite color 
registers; however, the 64 automatically assigns eight dif- 
ferent colors to the sprites when the machine is turned 
on, and the example programs don't change them. If you 
want to, however, just POKE into them the number of 
the color you want, from to 15, just as you do with 
the background color register at 53281, The sprite color 
registers are located at 53287 through 53294. 

Also, there are advanced techniques like animation 
(shape-flipping), rotation, and complex sprites, which 
we'll go through in the next couple of months, including 
an interrupt-driven machine-language routine that will 
allow you to speed up sprite movement drastically while 
still controlling it all from BASIC. 

HOW PIG IN A POKE WORKS 

In th meantime, though, let's go through Pig in a Poke 
section by section in order to see exactly what's going on. 

The Variables. One of the most confusing things in 
studying .somebody else's program is to try to remem- 
ber what all the variables mean. So here is a list of the 
major variables used by both Pig in a Poke and Basic 
Sprites: 

VB Address of the video block 

SB Address of screen memory 

BB The screen memory page number (used by BASIC 

LT(0-7) The address of each sprite's shape location register, 

located starting at byte 1016 after the start of screen 
memory. 

CT(0-7) The address of each sprite's color register. 

HT(0-7) The address of each sprite's horizontal position reg- 

ister. 

VT(0-7) The address of each sprite's vertical position register. 

HR The address of the flag-bit register for horizontal 

movement across the "International Date Line," 

ES The address of the .sprite enable register. 

VE The address of the vertical expansion register. 

HE The address of the horizontal expansion register. 

PR The address of the priority register. 

EM The address of the multicolor enable register. 

M R The address of the first multicolor color-selection reg- 

ister 

CS The address of the sprite/sprite collision register. 

CF The address of the sprite/foreground collision regis- 

ter. 

BS(0-7) The bit-set values for each sprite. 

BC(0-7) The bit-clear values for each sprite. 

STfn^ The codes for the location of each sprite shape block; 

these numbers arc POKEd into the sprite location 
registers at LTfriJ, 

NS The number of sprite shapes, minus I. 

VV(n) The vertical position array; these values are POKEd 

into the vertical position registers at VT(/i;.. 

HH(n) The horizontal position array; these values are 

POKEd into the horizontal position register at HTfri^. 

HB(n^ The horizontal flag-bit array: these values are i*OKEd 

Continued on page 75 
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FISH MATH 



for the 



VIC 20 



By Kevin Dewey 



In this educational game for children ages 
eight through twelve, the player is in con- 
trol of a group of ten fishes that must be 
led to the top of the stream safely and with 
the right amount of food in their tummies. 
The player figures out how much food each fish requires 
by working out a simple multiplication problem at the 
bottom of the screen. He then leads the fish up the stream, 
gobbling up food as he goes, and avoiding the shark 
known as Gums. Contact with Gums makes you into 
shark- bait. 



CONTROLLING THi FISHIES 

Controlling the fishies is a very complex process to 
learn, but very easy once you get the hang of it. There 
are only two keys-for right and left. The CRSR keys 
are used, CRSR UP/DOWN moving the fishy left and 
CRSR right/left moving the fishy right. Doesn't sound 
too complex, does it? But your fishy is always moving 
up. almost automatically, except when you are pushing 
down a CRSR key. So if you have a lot of food to eat, 
you'd better not go too long without moving right or left, 
or before you know it, you'll be on the top of the screen, 
with far less food than the fish requires. This problem 
can be solved, however, by scrolling off the side of the 
screen and moving down. You only move down on the 
right side. If you scroll off the left side, you move up. 
So if you're too close to the top of the stream with not 
enough food, you can head back down if you keep go- 
ing right. 

Another key that comes in handy is SHIFT/LOCK. 
This pauses the game, allowing the player to think over 
the multiplication problem presented, or the best way to 
avoid Gums, whichever is most pressing at the moment. 
Play is resumed by depressing the key. 



SCORING 

For every fish brought to the top safe and well -nour- 
ished, a point is added to your score. For every fish ei- 
ther overfed or undeifed, a point is taken away. If Gums 
gets a fish, the game ends. 



A FIW WORDS ON EDUCATION 

The educational emphasis in this game is on teaching 
basic multiplication facts. 1 had originally chosen to make 
it an addition game, but chose not to when I realized 
the arcade element of the game might become frustrating 
for the younger set of children. 

Instead, I cho.se multiplication because older children 
can appreciate the challenges of an arcade game while 
learning, instead of becoming frustrated by it. The game 
really is quite hard to master, and though children may 
not realize it, they are being drilled in multiplication skills 
as they play. USEE PROGRAM LISTING ON PAGE 110 
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COMPUTEREYES 



VIDEO (MAGES ON YOUR COMPUTERI 

Finally — an inexpensive way to capture feal' world images on your computer's 
graphics displayl COMPUTEREYES " is an innovative siow-scan device that con- 
nects tjetween any standard video source (video tape recorder, video camera. 
vitJeodlsk, etc ) and your compuler Under simple software control, a biw image 
IS acquired in less than s« seconds. Unique mulo-scan modes also provide 
realistic grey-scale images. Hundreds of applications! 



Package irxludes interface module, com- 
plete easy-to-use software support on 
disk, owner's manual, and one year 
warranty all for SI 29 95 plus S4 00 SSH 
(USA| 

Also available as a complete package 
including: 

• COfWIPUTEREYES' 

• Quality bIw video camera 

• Conneciing cable 

for only S399 95 plus S9 00 SSH. 

DemodisJi available for S 10 00 postpaid 
(refundable). 

See your dealer or order direct. Mass 
residents add 5% sales tax. fklasiercard. 
Visa accepted. To order, or for more 
information, wnte or call 




ONLY 



$129.95 



Available for 

• Apple II series 

• Commodore 64/ 128 

• Atari 800I800XU65XE/ I30XE 



DIGOAL VISrON, tNC. 

I4 0,*k Sjr«[ - Suited 

IVMdhiiin. MA 02192 

|«17j 444-9040. 4«-7I60 
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AHOY! POCK 

A Mini Database Manager 

for the C-64 

By Glenn Lumpkins 




ow many times has this scene been played? 
Your latest issue of Ahoy! arrives with 
the mail. You flip through the pages think- 
ing: boy-these-are-great-programs, the ads, 
all-those-helpful-hinLs, and the many other 
inspiring articles. fU read this issue and type in the pro- 
grams when I have time to really concentrate. For now, 
I'll make some mental notes about this issue. You now 
add this issue to the month's stack of magazines which 
sit on top of last month's stack, which sit on top of the 
previous month's stack, and so on. 

When was the last time you went to that stack of ma- 
terial needing a routine, a helpfiil hint, an item, or an 
article on a specific subject? Pulling issues out of the 
stack and scanning their indexes, you think to yoursel f : 



THE AMAZING VOICE MASTER 




Three Exciting Products in One: 

• $p««ch $ynth«siz*r — Your Computer can talk to you in 

your own voice, 

• Word Recognition — Make your computer respond to 

your spoken commands, 

• Voico Harp — A totally new musical instrument that you 

play and compose by humming. 

Based upon new technologies invented by COVOX. Per- 
formance is equal to other systems costing thousands of 
dollars more. One low price buys the entire system. 

ONLY $89>95 (tuggetied r«tail) 

Available from your dealer or by mail. When ordering by mail, please 
include $4.00 shipping and handling ($t0.00 lor foreign orders). 

Call (503) 342-1271 for a telephone demonslraUon and ordering 
information. VISA or MC accepted. FREE brochure available. 

oovox Inc. 

675-D Conger Street, Eugene, OR 97402 

Telex 706017 (AV ALARIWI UD) 
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"One of these days Tve just got to get this stack organ- 
ized. But the issues keep piling up higher and there seems 
to be no end to it. There must be a magnetic quality to 
the computer desk, as everything seems to gather there. 
Maybe tomorrow I'll get started." 



HELP IS ON THE WAY! 

I wrote Ahoy! Dock because I receive and save sever- 
al computer publications each month. More than once 
I have tried to catalog and file these issues, all to no avail. 

Now with Ahoy! Dock and a 1541 disk drive, I have 
an index of every article in my issues that I might ever 
want to use or read. Ahoy! Dock allows me to add to 
my file at any time, search for a program or articles, de- 
lete old items, modify the file, print or list the files, and 
sort the file on multiple fields. It now takes minutes in- 
stead of hours to find the information I need and my desk 
is much neater, thereby allowing me more computer time. 

Ahoy! Dock is simply a mini-database manager de- 
signed for use with an auxihaiy storage device and a flop- 
py disk. It will allow you to index information accord- 
ing to 14 categories, with each category containing 500 
independent records. With its simple menu operations, 
the program is as easy to use as pressing the function keys. 

When you run Ahoy! Dock, you'll see a main menu. 
Step-by-step instructions are asked for by each of the 
menus, with every attempt made to prevent an incorrect 
entry. If all else fails, at any point of entry a 7" will al- 
low you to escape back to the main menu. 

When you select an option from the menu, a submenu 
of categories will be read to the screen for you to choose 
from. When you select the ADD option and a category, 
the program will direct the computer to read the error 
channel from the disk drive to see if that category ex- 
ists. If the category doesn't exist, you are asked to create 
the file or return. Choosing the create option will ini- 
tialize that file. 

With just a little of your time, you'll soon have a com- 
prehensive disk file that will index all the magazine ar- 
ticles and programs you wish. 

Ahoy! Dock was written for computer magazines. You 
can easily alter it for any type of publication by chang- 
ing the data subject categories and the program lines. D 
SEE PROGRAM LISTING ON PAGE 103 
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Seeing 
Is Believing 



"I don't have enough time or space to listaU the good points!" -lioiandBmwn, niDniTESonwAREGAZEiTE 

'This disk is fantastic!" - Tom Lynch, the users fort 

"Why all the enthusiasm? Because COWAL is a composite of the best features of the most popular 

programming languages... the familiarity of BASIC commands with the structural programming 

environment of Pascal and the turtle graphics of lx)go." -- nark Brown, inro 64 

"COPIAL was just what I was looking for." -- Colin Thompson. Run 



Seeing is Believing. Take a look at what COMAL has to offer: 

the complete COMAL 0.14 System forCommoclore64^" includes the 

Tutorial Disk* (teaches you the fundamentals of COMAL), plus 

the Auto-Run DEMO Disk* (demonstrates 26 COMAL programs 

including games, graphics, sprites and sounds), 

all for just $7.00! 

You can add the reference book, COMAL from AtoZ. 

for just $4.00 more. 

$7 or $11 - either way you're a winner! 



"Everybody who gets it, likes it! (I'll guarantee it)" ■■ Un Lindsay. President. COMAL Users Group 



Call TOLL-FREE: I •800-356-5324 exL 1307 

VISA or MasterCard Orders ONLY. 

Questions and information must call our 

Info Line: 608-222-4432. 

All orders prepaid only - no C.O.D. 



Send check or money order in US Dollars to: 

fp7. COMAL USERS CROUP, U.S.A., LIMITED 

► V 6041MononaDrive, *1 11, Madison. WI 53716 

'-Ort^ phone: (608) 222-4432 




'Programs win comeon 2 disks or I double sided disk -cxh dbk JncJudesCOnAL 
Commodore 64 b a trwicnurtk orcotninodareElectmiics 
Reader Service No. 15S 



WHY PAY MORE ? 
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$99.45 COMPLETE 

Ttiooiand» o' those HftDti IN i^ntSICA iii-i.-tthr, ha*o 
bitn told vO^IOvitJe At il<0 TOii' uttt tH Mn«Bt 
buBinciaea^ anid achoDli.. ThrouQh aur ixmenaa buy'^Q 
pouer ftir ln(«rnai CQfiauhSI Ion ye can offflr y-ou 
th« |i}sn1tc«l printer at l9»» than IIVP, 

THE CNLT Bt COLUm PRtHTER FOR UNOEfl flH 
......... AMYU*CRE IN TH^ UORtD I 

Uft UBe iti]i prmlar in ewr own coiwunicAtioni lyslani 

Ci0*ratldn. You'll Idv* It hBe4u«« df dot-A4drtBSatilii 
grAphto Ihal'il hmock jraur O'Ccki gff. It's svfln 
conoatible vJth boouJat CBi and VtCZS' ordphica 
iprciBrAna lika' 

gnODERBUN'^S PHIHT SHQP, 
Vou'li Lav< M bacAuiB it'i SB chsrtclari par lacand, 
tttout tha doori att all olhar low coKt prlnlari. 
You'll avan l^v* )t bacawia of i^hat It daai"'! ia, 

HAKE NOISE. 

T^t* b«br't *o quiai yau can run liaLingi m tno 
Hlddie of trn night and Ihm and Qad won't avan know 
yeu'PB UD. If rouVft a i4d bit old*r, you'll Ibvd 
tha war 11 pr*intii your apraadfthaalt in a full 

1GB COLUMN FORMAT 
on B 1/7 inch wLda papar. Scheala buy 'm t^y th^ 
boAlload. NoM you can aall Ana of y6ur own. 

BUY OM YOUR BMKCMID FOfi Sftrifi OAY SMlPtlEHl. 
HASrERCARD £ U1SA 6LADLY ACCEPTED. 
FOR ]flnE0IA7E KTIDN CAtl- 

l-fl»-67Z-3*7f XB<1 JN CALIFOflNIA 
1-B«*-S3d-8157 xe41 

P0<5T TFCHNOLOGIES, INC. 
CHOWCHILLA. CA 

rsrWICK IN THE HEART Of SILICON VN-LE^ SOUTH.) 
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THE COPY PROGRAM 

• EXACTCOPIESINONLY 
21 SECONDS 

• SIMPLE-FULL BACK-UP IN A 
SINGLE KEY STROKE 
RELIABLE— WORKS 
VIRTUALLY EVERY TIME 







^UNIVERSAL 

475MAtNST FARMINGDALE NY 1 1735 

(516)753-0110 

MASTERCARD VISA. M O OR CHECK I r 

NY ORDERS ADD SALES TAX ["T* 

Prices are mail ofder only and do not 
include shipping & handling 
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Because upon starting the Conuno 
dore, RND(l) always produces the 
same series of random numbers, and 
because RND{0) is rather suspect, I 
use one of the following lines in pro- 
grams that use random numbers: 



100 R = RND(l): GET A$! 
A$="" THEN 100 



IF 



or 

100 R = RND(l): IF (PEEK(5 
6320)AND15)=15 THEN 100 

Depending upon the length of the 
pause, line 100 will generate a vary- 
ing number of random numbers, 
which changes the starting point for 
the series of random numbers used 
in the program. The mote often the 
program can zero line 100, the bet- 
ter. —Jacqueline L. Callaway 
Orange Beach, AL 

I would like to address an article 
in the May issue of your fine maga- 
zine: Disk Spinners, Part //by Mor- 
ton Keveison. I have used all three 
of the referenced devices. I purchased 
the 1541 Flash after reading the arti- 
cle and cannot offer enough praise for 
this fine product. 

I have the updated model with the 
switch on the disk drives (2). I have 
been using the Flash for about a 
month and have found only two 
games that will not work with the 
Flash installed. 

I use word processors and PFS 
(File & Report). I have found that 
with the Flash installed it is a plea- 
sure not waiting between searches 
during file update and printing. 

On die Commodore I have, the 
Kemal ROM was soldered in and did 
require the tricky removal of the old 
Kemal to install the socket furnished 
with the kit; after this was done the 
rest of the modification went with- 
out any problems. 

I would like to thank Mr. Kevei- 
son for his article and Skyles Elec- 



tric Works for their product. 

—David J. Farrell Sr. 
Enfield, CT 

I recently purchased the Fast Load 
cartridge from Epyx. One of the first 
programs that I tried Fast Load on 
was Microsoft's Multiplan for the 
C-64. Multiplan is a superb spread- 
sheet, but frustratingly slow. When 
I attempted to save some changes to 
my data disk, Fast Load restructured 
my files so diat I could not retrieve 
them. 

I called Epyx to find out what hap- 
pened. The gentleman I talked to said 
the problem was relative files. His 
belated advice was "don't use Fast 
Load on any program containing rel- 
ative files." 

In all the reviews that I have read 
in your magazine and others, no- 
where is this problem mentioned. 
And nowhere are there any warnings 
about potential problems like this. 

Please address this problem for my 

benefit and the benefit of al! your 

readers. -Edward S. Champa 

Indianapolis, IN 

Scuttlebutt would be even better if 
it incorporated, though in abridged 
form, the same thoughtful judgment 
that's found in your Reviews section. 
Any chance of that? -Mel Getty 
Orono, ME 

Not if we want to keep Scuttlebutt 
the most current —as well as complete 
-Commodore news section on the 
stands. We announce new products as 
soon as we learn of their existence. 
Whiting for review samples would tnake 
our news section yesterday's papers. 

We incorrectly listed the address 
and phone number of Navarone In- 
dustries, Inc. on the back cover of our 
August issue. Correct address and 
phone number are: 

Navarone Industries, Inc. 

19968 El Ray Lane 

Sonora, CA 95370 

Phone: 209-533-8349 
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FASTNEW 

A 20-Secencf Formatter tor the 1541 



F 



By Don Lewis 



astnew is a fast disk formatting program. 
The 1541 has a built-in command for for- 
matting, i.e. NO:(diskname,id). So why a 
special program? Because Fastnew im- 
proves on the 1541 resident formatter in 
three important areas: 

a. Speed. The normal format takes about 90 seconds. 
Fastnew formats a disk in 20 seconds. 

b. Reliability. The normal format routine includes a 
verify. Unfortunately, this verify has a bug in it which 
allows some format errors to go undetected. Fastnew has 
a correct verify, insuring error-free formatting. 

c. NO Head Bang. The normal format kills 154rs. Ev- 
ery time you use the normal format, the read/write head 
is BANGed against a hard stop in the drive. Eventually 
this will throw the disk out of alignment, and cost you 
an expensive repair. Fastnew never bangs the read/write 
head when formatting. 

Fastnev.' consists of three sections, a BASIC portion 
and two machine language (ML) routines. The BASIC 
code handles screen output and user input. One ML rou- 
tine is a fast memory mover used to transfer code from 
the 64 to the 1541. The other ML section is the format- 
ter proper. It is transferred to the 1541, then executed us- 
ing an M-E command. This code relies heavily on sub- 
routines in the 1541 ROM's to perform the formatting. 

When typing in Fastnew, be sure to double (and tri- 
ple) check the data statements at lines 4000^999 and 
5000-5999. Make sure you save a copy to disk before 
running the program. Until you get a completely work- 
ing Fastnew. be prepared to quickly turn your disk drive 
off. Typos in the data statements can cause the 1541 to 
really go wild. 

Source code for the 1541 resident code is available for 
$8.00 postpaid from the author (see address below). Care- 
fiil study of the source code will suggest all sorts of pos- 
sibilities for custom formatting, such as varying data or 
header block lengths, extra tracks or sectors, and record- 
ing density shifts. Custom formatting has been where 
most copy protection schemes originate. 

Fastnew is faster because it avoids a lot of the work 
the normal format does, without compromising integ- 
rity. When formatting a disk the 1541 normally does quite 
a bit of work. First it writes 10250 $55 bytes (non-synch 
marks) to the disk. Then it writes an alternating pattern 
of $55 and $FF (synch marks) bytes to the disk. It then 
reads the track and counts how many synch and non- 



synch marks were actually written on the track. From 
these counts, it calculates the optimal inter-sector gap 
length. The goal is to divide the track into evenly spaced 
sectors. The actual number of bytes written out as the 
inter-sector gap depends on the length of the track (track 
35 is shorter than track 1), the number of sectors on the 
tracks, and the speed of the disk drive, which may vary 
from day to day. After calculating the inter-sector gap, 
the actual formatting is done. The header block and a 
dummy data block are written out for each sector on the 
disk. The Read/Write head is then stepped to the next 
track and the process repeated. 

In practice all this work isn't necessary. There is no 
reason to try to get an even sector distribution around 
the track, provided there is enough space for all the sec- 
tors. It is important, however, to have some gap between 
the end of one sector and the start of another. If a gap 
did not exist, you'd run the risk of having a data block 
write into the header block of the next sector, causing 
a disk error number 20. This could happen if the speed 
of the disk drive varies from day to day. 

Rather than go through all the calculations described 
above, Fastnew assumes that a gap of 8 bytes between 
sectors is sufficient. This is based on an examination of 
the inter-sector gaps on a number of normally formatted 
disks. 

Head bang occurs when the R/W head is pulled back 
to track 1 by the normal format routine. The normal for- 
mat assumes that the head is as far away as possible and 
steps the head back 45 tracks— BANG!! However, pro- 
vided that the disk drive has accessed at least one prop- 
erly formatted disk, the current position of the R/W head 
can always be found at memory location $22. Fastnew 
reads this location and calculates the necessary steps to 
pull the head to track 1 with NO bang. 

As I said, Fastnew makes one assumption, that the disk 
drive has previously accessed a properly formatted disk. 
(A small price to pay for extending the life of your 1541 
disk drive.) 

I hope that you will find Ristnew a useful utility. I would 
like to extend my appreciation to my colleagues at R. 
J. Brachman Assoc., Inc. for their assistance in devel- 
oping this program. I welcome correspondence from 
readers. Write to Don Lewis, P.O. Box 521, Folsom, R\ 
19033. Please include a stamped and self-addressed en- 
velope if you desire a reply. D 

SEE PROGRAM LISTING ON PAGE 111 
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All of Michoel Montauck's 
(Brooklyn, NY] images 
were created with the Ko- 
ala Pad and Koala Painter 
software: his representa- 
tions of CIS (the Compu- 
Serve informotion System] 
ond Grtrfft'f/ (bottom), and 
the swinging cats at Ahoy! 
(bottom right, page 35). 
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Contributors to Ahoyi'z Art Gallery will receive roy- 
alties bosed on the sale of disks containing the best 
computer graphics received, both published and un- 
published. Send your best work on disk, accompon- 
ied by a stamped and self-oddressed moiler, to Mor- 
ton Kevelson, P.O. Box 260, Homecrest Station, Brook- 
lyn, NY 11239. Indicate the drawing pockage that was 
used to create the image. If you employed o bit mop 
of your own design, indicate the appropriate file 
parameters, i.e., ht-res or multicolor, location of bit 
map, screen or color data. 



^ 



nig to our initial request for starving 
computer artists, John Motthews Jr. (San 
Antonio, TX) indicates that he is starving, 
but only for attention. Hence his choice of 
ottentiongetting celebrities for his imoges, 
all created on the Koala Pad. Betiy Boop 
(right) and charter Gremlin Gizmo (below) 
were drawn freehand, pixel by pixel, using 
Koola loom mode, fesemite Sam (left) wos 
drawn freehand, based on a grid designed 
to proportion the screen pixels to match the 
proportions of the Okimote 10 color printer. 
(The proportions actually look better on tfie 
printout than on the screen shot shown.) 
John digitized his image of Jane Kussell 
(above) with Computereyes (see review, p. 
66) ond added finishing details by hand. 
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MSD Sure Copy 

At last a complete utility package for the MSD Dual 
Drive. This is the first MSD utility program that does 
it all. The main menu options include: 

Sure Copy will put all errorsautomatically on disk: 20, 21 , 
22, 23. 27 and 29's. 



• Copy Protected Disk 

• Copy Files 

• Format a Disk 

• Change Disk Name 

• Quit 

• Copy Unprotected Disk 



• Scratch a File 

• Rename a File 

• View Directory 



$39 



95 



TOP SECRET STUFF I 




-OMS 

■ 'h TrKk Reader 

■ 'h Track Formaller 
' Drlu« Man 

■ The Doc 

' Sync Maker 
' Sync Reader 
' Change Drive No. 
' DItk Logger 
Dl«k Match 



— New Wedge 

— \D Chech 

— Unicralch 

— View RAM 

— Read/Wrlle Teil 

— Repair a Track 

— Fait Format 

$19.95 



TOP SECRET STUFF II 

Alt C128 Compatible 



— Spilt Screen! (Horlzentally) 

— Smooth Scrolling 

— Save Rarr From Under Ronu 

— No Drive Rallie On Errori 

— Triple Drive Head Speed 

— Aulobool Maker 

— Koala Screen Dump 

— DItpliy GCR 

— Fsat Disk Eraaer 

— Protect Scheme For Your Ditke 



— Write Protect Dl>k 

— Unwrlte Protect Oltk 

— Mini 0.0. S. Wedge 
^ Fatt Ditkmatclier 

— Data Statement Maker 

— Unnew 

— 3 Minute Copy 

— D.M.S. 



¥ 



$1995 



WAR GAMES 
AUTODIALER 




1-Auto Diil NViii aulomaiically dial a sbt of numbers you choo&e 
2-R«vlew Numbers wiii feview numbers thai were answered by a corrtputer 
3-Save Numbers will save numbers where a computer answered 
4-Hsrdcopy o1 Numbers will prmi oyl list ol numbers where a compuier answered 
5-LOAO Numbers wiii load tn numbers to continue where n leti otf 
6-Continue will pick up di^lmg wnere il was tnierrupted 



«29.95 



EDFTLUHRE. 
•HflNDBDDH 



D-CODER 

• Translates any machine language program into easy-to- 
read English descriptions with complete explanations o) 
each command! 

• Makes complete notations of all imponani memory 
locations accessed by the program! <SIO. VIC. MOS. 
KERNAL, etc) 

• Gives you Ihree ways of accessing programs: 
1 1 WIII read and Hit program* from DISK 

21 Wlil read and Mil programs from MEMORY 
3J Direct uier impul (from magaiines, etc..) 

• Can be used to locate and examine any machine 
language program's protection routines! 

• Can be used to easily break apart machine language 
programs tor study and examination! 

• Printer option for complete hard copy listings! 




You Now Longer 
need to be an 
EGGHEAD to 

read Machine 
Language. 



$1995 



3rd 

Edition 



N-CODER 



The perfect companion 
program to D-COOERI 



THIRD EDITION! NOW AVAILABLE! 
l( you're tired ol being harassed by protected aoftware and too many copy 
programs. Ihon this is ihe book lor you' This 224 page manual covers the 
gambit Irom legalities lo protection methods to step-by-step tiaclt up pro< 
cedures Now you can iearn both how to protect *r>d unprotect software 
The techniques covered include copying cartridges to tape or disk, tape pro. 
techon, and disk protection Disk protection covers error no 's 20. 21 . 22. 23, 
27 and 39 plua single track formatting, header modification, header swapp- 
ing, halt track reading and wrmng. reading and writing modified bit densities 
lormaltihg illegal Iracks/sectors. sync wnting and more! The Third edition ex 
plaina, tells how lo detect and how to write Ihem with included software. 
Eleven useful utilities and many protection listings' Our disk analysis programs 
reveal the protection methods used on your onginals A diskette with all soft- 
ware IS available for a minimum extra charge This may not be Ihe only book 
your should have lor the C-64. but it is certainly Ihe one book you should 
not be without! 



the machine 

language manipulator... 

Allows you to easily make changes in machine language 

programs .. right on the disk! 

• Rewrite ability allows code to be altered and then 
rewritten directly to the disk! 

• Features seclor-by-sector scrolling assembly language 
display of machine language programs! 

• Notation of ASCII text equivalents for easy spotting ol 
embedded text strirvgsl 

• handy reference display of all assembly language 
commands and their ML numerical equivetents! 

• Byte splitter lor easy splitting ol decimal addresses into 
low byte-high byte lormat' 




M9.95 



Bulletin Board 

Stt upantt Offtrttoyour own bullmtm bottti wirn on« 
or rwo tjisk dnv»i This on* hti tit rrie taaturti ind 
you CHn Custvmti9 it ttSify yourselt 



064 Book only 

Book i Disk ol all programs 

Vic 20 book Cart S Tapes only 



l-RUNMEGASOFT-BBS 

2 CREATE MEGA FILES 

3. ADD TO SVSOPS CORNER 

4 NEWSTSOPS CORNER 

5 READ MESSAGES 

6. SCRATCH MESSAGE 
7 CYCLE MESSAGES 



$19 95 US 

S29 95 US 

$9 95 US 



THIS MANUAL DOES NOT CONDONE PIRACV 
•SHIPPING $2 00 



»59.95 ggg 

• Leveled Access 

• Private Message Base 
. Up to 300 Passwords 



8 REAO SVSOP MESSAGES 

9-WRITE OPENING MESSAGE 
10. REAO LOG 

1 1 CYCLE LOG 

12 READ DOWNUOAO riLE 

1 3 -SCRATCH DOWNLOAD FILE 

14-AOD TO OTHER SYSTEMS 

1SCBEATE OTHER SYSTEMS 




Expert Mode 

Open Chalk Board for 

Highest Level Access 



EndoM Cftsr^iers Civcii uonay Ordei or Pirsaf*M 

Cr>Kl< Allow 14 <lAYi l&r OAlivfiry 2 ^o 7 ddys lor 
pnonA orders Canada orders rnuSI De in u S 
Ootlars VISA - MASTER CARD -COD 

PfOf rams For C-e4 S? 00 S A H on an orders 



3 MegaSoft 




Limited 



5ofTw»r« Submletlonl lnvlr«d 



P O Box 1080. Battle Ground. Washington 98604 

Phone (206) 687-5116 • BBS 687-5205 Aif mou-s CoTtovier lo Compuie. 
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Tumb^g Dice 
Data Sifnctures 

BY DALE RUPERT 



The next roll of the dice may determine your 
future. Three dice rattle in the cup. The ques- 
tion is this: What is the probability that you 
will roll an eleven? You confidently reach for 
your portable computer and quickly load the three-dice 
simulation program. Within moments it has calculated 
the answer to this final question on your statistics exam. 
This article will not reveal the answer to the question. 
We will develop some programs to solve it, though. We 
will also look at a loftier topic dian dice rolling, called 
data structure. The data structures of a program affect 
its speed, versatility, and debuggability. We will look at 
some of the tradeoffs of using different data structures. 



As we saw last month, there are essentially three ways 
to determine probabilities; (1) formula evaluation, (2) ran- 
dom simulation, and (3) enumeration. It is very unlikely 
that any reference book contains the formulas of specific 
outcomes for the roll of three dice, so Method 1 is no 
good for solving our problem. This month we will devel- 
op procedures for implementing Methods 2 and 3. 

Method 2 is sometimes referred to as a Monte Carlo 
approach. It is often used when the total number of pos- 
sible outcomes is so large that it is impossible to list them 
all. Method 3 lists all possible outcomes and is feasible 
only m cases where that number is small enough and de- 
terminable. 

AHOY! 37 





EFFECTIVE 



Shadow is a new and revolutionary 
way to duplicate even your most ^ 

protected software. It encompases all 
the latest advances in software, as well 
as a highly sophisticated piece of hardware. 
This is absolutely the best utility available 
today. "It will even copy the other copy 
programs." Because of Shadow's unique 
abilities, we feel DOS protection is a thing of 
the past. 

By the time you place your order we expect the 
Shadow to copy 100% — that's right, 100% — of all 
software available for the C-64. 



Ordef by phone 24 hrs 7 days or send cashier scheckjmoney order 
payable to Megasoll Visa. MasterCard include card * and exp date Add 
S3 50 shipping handling tor continental U S . $5.50 tor UPS air CODs add S7 50. 
Canada add S10 00 Other foreign orders add $15 00 and remit certified U S funds 
only Distrilaulors invited and supported 



T 



PO Box 1080 Battle Ground. Washington 98604 

Phone (?06| «17M )6 • BBS 687 5?05 AtlPfHouis Compgimio.Cnmpulet Odenng 
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It is easy to calculate all possible outcomes for three 
dice. These nested FOR-NEXT loops generate every 
combination; 



10 FOR A=l TO 6 
TO 6 
20 PRINT A;B;C 
30 NEXT C,B,A 



FOR B=l TO 6 : FOR C=l 



Instantly the most tedious part of statistics class is elim- 
inated! You might send this output to the printer. Then 
you could find the sum of each triple and keep track of 
how many of those totals equal the desired value. The 
probability of rolling an eleven is the quotient of the num- 
ber of "successftil outcomes" divided by the number of 
possible outcomes. Here a successful outcome is one in 
which the sum of the three dice is eleven. 

Of course we will let the computer keep track of the 
sums and any other information about the dice that we 
desire. But before we proceed with this enumeration pro- 
cess, let's try the random simulation method. 

ON TO MONTE CARLO 

Very little work is needed to simulate and analyze the 
rolling of three dice, as the Dice Simulator program on 
page 99 shows. Random values from 1 to 6 are chosen 
for each of the dice. Their total value is calculated and 
compared with the desired value. If their sum is eleven, 
the variable GOOD is incremented. The variable N keeps 
track of the total number of rolls. The number of "good" 
rolls divided by the total number of rolls should approach 
the probability we are looking for. Line 70 displays 100 
times this probability, giving us the percent probability. 
Supposedly the longer this program runs, the closer 
the result comes to the theoretical value. Of course it 
is possible that the first three dice we roll have a sum 
of eleven, giving a 100% probability. On the other hand, 
we may roll 100 sets of dice before getting a sum of ele- 
ven. Neither result is very accurate. Only after numer- 
ous rolls with a good random number generator will the 
results settle down to a value close to the true value. 
We have seen in previous articles that the random num- 
ber generator in our microcomputers is not truly random. 
The non-randomness may cause the program to "home 
in" on an inaccurate value. Using an imperfect random 
number generator is equivalent to rolling loaded dice. 
I suggest that you run the Dice Simulator program to see 
if you can determine the actual probability before you 
evaluate it exactly in our next program. 

The disadvantages of using this Monte Carlo method 
should be clear. It may require a fair amount of time to 
arrive at a reasonable value. Also, it may be difficult to 
know how reasonable the value is. If the random number 
generator is not very good, the answer may not be very 
good either. 

The main advantage of this method is that you don't 
have to be able to list all possible outcomes or even know 
how many there are. For simulating radioactive decays 



and molecular motion (topics for next month), this is cer- 
tainly a desirable characteristic. 

You can easily modify the Dice Simulator program to 
answer other questions, such as: 

1) Are you more likely to roll a seven or an eleven with 
three dice? 

2) What is the probability of rolling a total value great- 
er than fifteen? 

3) What is the probability that the value on one die 
equals the sum of the values on the other two dice? 

4) Is there a fifty percent probability that all three dice 
show an even number? 

Use your intuition to make a guess on each of these be- 
fore running your program. Probabilities are not always 
intuitive. 

To help you get started on Problem I, you might add 
this line: 

65 IF TTL=7 THEN G2=G2+1 

Also change line 70 to print the value of 100*G2/N next 
to the other probability for a side-by-side comparison. 

MORE SOPHISTICATION 

The bane-bones Dice Simulator program uses the most 
basic data structure, simple numerical variables. The next 
program goes to the other extreme. It contains numeri- 



t BridgePro® J 



BndgePro is the first program I've seen that provides a challenge 
lor the average-to-excellenl bridge player. . The documentalion is 
excellent and allows a new bridge player to learn the basics. 
— Harvey Bernstein, Antic Magazine. Feb. 1985 

After having tried three other bridge programs, I find that BridgePro 
IS indeed a pro game It is designed for both the beginner and the 
advanced player. . I didn tfind anything that could be improved upon. 
— Helen Garret, Apple-Dayton Journal. March J985 



If you like to play 
eager to play, this 




bridge and dont have three other players ever- 
software Is a must. For bridge freaks its good 

enough to justify buying a computer 
. Whether you are a master or a 
. -J—. beginner, this is great software. 
■*-'^= -Christian Basler, NY 

Commodore Users Group 
fleview. Sept. 1984 

BridgePro is designed to let you learn, 
i mprove. or just enjoy the card game of 
bridge. The program provides com- 
plete bidding, play and scoring for 1 or 
2 players. Features include random 
hands, bidding help, demonstration 
mode, hand replay/quit, best hand. 
auto finish, duplicate mode, and fast 
machine language speed. 



^OC CA Residents add S2 28 Sales Tax 
^ *-'^ Add (2 for COD/UPS 2nd Day Air 
DISK VISA/MaslerCard Welcomed 

Commodore 64 • Atari 
Apple II . IBM PC/PCjr 



Money Back Guarantee 
24-Hour Toll Free Orders 
t-80CM43-0100exl. 158 

Computer Management Corp. 

2424 Exbourne CI 

Walnut Creek. CA 94696 

Dealer Inguiries Invited 
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cal arrays which are indexed by other numerical arrays. 

When three dice are rolled, there are 216 possible out- 
comes. Each die may have any one of six possible values, 
and 6*6*6 is 216. The computer can readily handle this 
many items. The program Dice Analyzer (on page 99) 
generates all of the 216 outcomes and stores the values 
of each of the dice in a numeric array. This program an- 
alyzes the probabilities of various events by the exact pro- 
cess of enumeration. Once the list of outcomes is deter- 
mined, the computer may look through the list, identify- 
ing "successful" outcomes and calculating the desired 
probabilities. A successful outcome is one which meets 
certain criteria, such as the sum of the three dice being 
eleven. 

The value of each die for every one of the 216 possi- 
ble outcomes is stored in the numeric array ROLL(N,D) 
where N is the outcome number (I through 216) and D 
is the die's identifying number (1 through 3). If ROLL(7,2) 
equals 4, then the value of the second die is four on the 
seventh roll of the dice. If the third die had a value of 
five on the twentieth roll, then ROLL{20,3) equals 5. 

In addition to keeping track of each die's value, the 
program stores the count of each face value for every 
roll in the numeric array CT(N,V). Again N is the out- 
come number, and V is the face value {1 through 6). If 
Cr(9,2)=I. then only one die had a value of two in the 
ninth roll. If no dice had a value of two in the 216th roll, 
then Cr(216,2)=0. 

One other numeric array is filled as the various out- 
comes are enumerated. The array TTL(N) stores the sum 
of the three dice on the Nth roll. If TTL(40)=7, then 
a total value of seven occurred in the fortieth roll. 

Lines 40 through 110 enumerate the outcomes and fill 
the arrays. This program determines exactly the proba- 
bilities that 

1) Three ones are rolled. 

2) At least one three and no sixes are rolled. 

3) No twos are roiled. 

4) The sum of the three dice is eleven. 

This program is actually "overkill" for the .sake of il- 
lustration. It is certainly not necessary to set up such a 
complicated set of arrays in order to find these proba- 
bilities. We could keep a tally of all successful outcomes 
as the values are generated in line 60. In fact, the simp- 
ler method would run more quickly and use less memory. 

Why bother with this more compUcated program? With 
the more sophisticated data structure we gain greater ease 
of analysis and greater flexibility in displaying the re- 
sults. To implement Test 2 listed above with the simpler 
structure, we might have to use line 65 such as: 

65 IF (A=3 OR B=3 OR C=3) AND (A<>6 AND 
B<>6 AND C<>6) THEN T2=T2+1 

This is somewhat more cumbersome than the correspond- 
ing statement in line 150: 

150 IF CT(N,3)>=I AND CT(N,6)=0 THEN T2= 
T2+1 

40 AHOY! 



Try to determine the probability that exactly one three 
and no sixes are rolled. I don't think such a test could 
be contained in one line with the simpler data structure. 
(Let me know if Fm wrong!) Line 150 could be easily 
modified by removing the "<" to perform such a test. 
The ROLL array is needed only if selected outcomes 
are to be listed, as was done for Test 4. RNUM(M) keeps 
a list of all the roll number indices which satisfy Test 
4. For example, if the twentieth roll had a sum of ele- 
ven, and if four previous rolls also had sums of eleven, 
RNUM(5) would equal twenty. RNUM is used as an in- 
dex into ROLL so that the events satisfying Test 4 can 
be printed in line 290. 

DATA STRUCTURE OF DICE AMALYZCR 
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The diagram shows the relation between TTL( ). 
ROLL( ), and RNUM( ). On the 29th roll (N=29), the 
dice had values 1, 5, and 5. The sum of their values is 
eleven so TTL(29) equals U. This was the second oc- 
currence of a total value of eleven. Consequently 
RNUM(2) equals 29. Similarly the 114th roll was the thir- 
teenth occurrence of an eleven. The diagram shows that 
RNUM(13) equals 114, TTL(114) equals U, and the thi^e 
dice had values 4, 1, and 6. 

We have covered the fundamental concepts of index- 
ing, pointers, and linked lists in the Dice Analyzer pro- 
gram. Study the program and the data structure to under- 
stand how the variables are defined and related. Better 
yet, see if you can modify the program to handle more 
dice. Perhaps you could change the Dice Analyzer pro- 
gram to answer the four questions suggested earlier for 
the Dice Simulator program. 

Think about the possible data structures as you begin 
to create any program. A more complicated structure 
might be harder to implement, but it may pay off with 
ease of expandability and versatility later. D 

SEE PROGRAM LISTINGS ON PAGE 99 



CAPTURE 



presenting . . . 

A NEW WAY TO UNLOCK THE POWER OF YOUR 064 OR 0128* 

• CAPTURE IS A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER'S EXPANSION PORT. 

• CAPTURE DOESNOTHING — UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN, A 

RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 

• CAPTURE THEN TAKES CONTROL — NO IPS, AMDS OR BUTS — AND PRESENTS A MENU. 

• CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 

COMPATIBLE DISK DRIVE — ALL 64K OF RAM, CPU, VIC AND SID CHIP 
REGISTERS — EVERYTHING. IN EASY TO VIEW CHUNKS. 

• CAPTURE WILL, IF YOU WANT, PRE-CONFIGURE YOUR COMPUTER'S RAM SO THAT 

ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 

• CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 

EXECUTION RIGHT WHERE YOU LEFT OFF. 

• CAPTURE DOES ALL THIS AT A COST OF JUST $39.95 

BUT HERE'S THE BEST PART 

• CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT'S EASY! 

JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE'D IT. MAGIC! 

BESIDES CAPTURE, YOU NEED A promenade 01 AND A SUPPLY OF CPR3 
CARTRIDGE KITS. 

ORDERING INFORMATION 

• CAPTURE CARTRIDGE — COMPLETE WITH INSTRUCTIONS $ 39.95 

• promenade ci — eprom programmer with disk software 99.50 

• CPR3 cartridge KIT — PC BOARD. CASE AND 3 EPROMS 29.95 

• DR— EPROM ERASER, TWO AT A TIME, 3 TO 10 MINUTES 34.95 

• STARTER SET — CAPTURE, promenade C1 and 1 CPR3 149.95 

• DELUXE SET — CAPTURE, promenade ci, dr and 2 cpr's 199.95 

SHIPPING AND HANDLING — USA: UPS SURFACE $3.00 

BLUE LABEL $5.00 NEXT DAY AIR $13.00 

CANADA: AIR MAIL $7.00 OTHER FOREIGN AIR $12.00 

CALIFORNIA RESIDENTS ADD APPLICABLE SALES TAX 
COD ORDERS, USA ONLY, ADD $3.00 

C64 AND C128 TM COMMODORE ELECTRONICS, LTD. 'WHEN OPERATING IN 64 MODE 

TO ORDER: TOLL FREE 800-421-7731 TECHNICAL SUPPORT AND 408-287-0259 

FROM CALIFORNIA 800-421-7748 FROM OUTSIDE THE US: 408-287-0264 
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580 PARROT STREET 
SAN JOSE, GA USA 95112 
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Commodore 64 Accessories 
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SuMmner Sixxlor Sale 



Sale Positively Ends 9-15-85 

Prices will go bock to regular sale prices 

C128 Commodore Computer 

Expandable to 512K. runs C-64. CPM. and 7.0 Programs. 
(Add SIO Shipping) 

1572" Commodore 150-170 CPS Printer 

Neor Letter Quality. Multiple Pin Tractor Friction Feed. 
Best Printer Value In U.S.A. (Add S17.50 Shipping) 

Commodore-64 IEEE Interface 

Allow5 you to run Pel Peripherals on the C-64, Including the 
One Megobyte Disk Drive and 15' ; ' Printer 

Juki Printer/Typewriter 

Letter Quality, daisy whee' use as typewriter and or printer 
(auto correction) (Add 510 Shipping) 

SCM 80 CPS Printer 

Tractor f rjclion 10" Famous Name Printer does Graphics 

w Intertoce. (Add SIO Shipping) 

Cardco G Plus interface 

Converts Commodore to Centronics for use with most printers, plus 
does Commodore graphics on graphic printers 

Alphacom 40 Column Printer 

Therinol technology - does graphics. (Add $7.50 Shipping) 
Alphacom C-64 or Atari Interlace S8.95. 

190K Slim-Line Disk Drive 

Cooler. 30°o foster, quieter than 1541 drive (Add SIO Shipping) 

One Megabyte Disk Drive (1000K) 

Double sided drive hooks up to C-64 v^lth IEEE interface, perfect as a 
second drive. (Add SIO Shipping) 

13" Premium Quality Color Monitor 

Better than 1702. with seporated video inputs. (Add SI 4.50 Shipping) 

Voice Synthesizer 

Allows you to talk through your computer. Optional software lets 
you ploy talking adventure games (Zork etc.) 

80 Column Board - 4 Slot Expander 

Allows you to program In 80 columns, plus gives you o 4 slot switch 
selectoble expander 

Auto Dial Modem with Super Smart Software 

Uplood. Downlood, Print, Catalog. This Package has it oil! ! ! 
Best Modem Value in the U.S.A. I I 

Musicalc I Software 

The Best Musical Software for the C-64. ollows you to chonge a 
parameters. 

Oil Barrons Software 

Belter than Monopoly comes with game board, disks ond 
instruction monual. Strike Oil or Live in the Poor Form 



^895 



00 



M09 



«5 



Reg. Sale 
Price 



>299 



09 



*299 



lOO 



•69 



00 



Summer 
SixMler Sale 

$289" 

9S 



Add S3, 00 for stiipping, hondling ond insurance. Illinois residents 
please odd 6°, (ox Add S6.00 lor CANADA. PUERTO RICO. HAWAII 
ALASKA, APO FPO orders. Cooodian orders must be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Coshiers Check, Money Order or Personol Check. Allow H 
days for delivery, 3 to 7 days lor phone orders. 1 day express moil ' 

VISA MASTERCARD COO 
_^ No C O D toConodo. APOfPO. 



S34900 


S24900 


$22r' 


^299°° 


* 15900 


n49" 


M09°° 


> J^OD 


*49»* 


s^goo 


»24« 


$22'^ 


S24900 


» 1^900 


n39" 


S3Q900 


»199«» 


^79" 


S39900 


( 19900 


n69" 


S3900 


$4900 


^39" 


SI 4900 


»79oo 


^59" 


► 5^29'^ 


»C900 


^39" 


S59.i 


*29" 


*f4'* 


M9" 


'19" 


SO'S 


* plus 


Software Coupon Discounts I 
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OTE 


CTO 1 


Wc Liove 


Our Custorne7\s 1 


22292 N. Pepper Rd., Borrington 


Illinois 60010 1 


312/382-5244 to 


order 1 
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FANTASTIC COMPUTER PRINTER SALE!!! 



10X COMSTAR 

HIOH SPEED 

Tractor Friction Printer 
130-150 CRS 




Only 



n 



List $499 



COMSTAR 



ISVj" 150 170 CPS Printer $319" 



" Lowest Sale Price, Premium Quality. Tractor friction Printer in the USA. iBett Valuel 
• High Speed 130 ISO Characters Per Second • 40. 46 6&, 80, 9t. t3t line spactng 
Word Processing. Letters • Business Forms • Labels Graphics Tables » List Programs 
fantastic Graphics * Print Modem Data * The Most Important Accessory for Youi Computer 



Premium Quality 

13«-150 CPS lOX COM -STAR 

High Speed Printer $199 

10" carriage, 2K buffer. prints 
Bi'j"xil" slandaid sinKle sheet or 
continuous feed paper. Bi-clirectional. 
impiicl, dot matrix. 130-150 CF'S, 9x9 
dot matrix with double strilte 
capability for 18 x 18 dot matrix I near 
letter quality t, high resolution bit 
image, underlining, downloadable 
characters, true lower descenders 
with super and subscripts, pi'ints 
standard, block graphics, and special 
chaiacters. It gives you print quality 
and features found on printers costing 
twice as muchll (Centronics Parallel 
Interface) I Better than Epson FX80 
and Gemini lOx i. 
List $499,00, .Sale $I»9.(HI. 

Premium Quality 1501 70 CPS 

IJi/jX COM-STAK Business 

Super Higii Speed Printer $319.00 

Has all the features of the lOX COM- 
STAR FHINTKH plus 15i*j" carriage 
and mor-e powerful electronics 
components to handle large ledger 
business forms: (Better than Epson 
PX 100 & Delta 15 1. 
List $599. Sale $319.(10. 



SMITH 
CORONIV 

10" 80 CPS Printer 

Friction/Tractor Bidirectional Dot 
Matrix printer with six pilches 
including condensed and enlarged 
type foi- impeccable printing. Drop in 
cassette ribbon; Centronics interface 
included. 

List S299.00. Sumnior Sale $l49.m 
(Lhnitcd Qunnlities) 



OOlympia 



Executive Letter Quality $299.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic lettei' quality, up to 
20 CPS bidirectional, will handle H.4" 
forms width I Has a 25fi character print 
buffer, special print enhancements, 
built in tractor-feed (Centronics 
Parallel and FIS232C Interface) (90 
day warranty!. 
List S649.00. Summer SKle SSSn.im 



Super Summer Sale Endi 9-15-8S 

■JUKI 

Printer /Typewriter 
Combination .$229.00 

"JUKI" Superb letter quality, daisy 
wheel printe r /type write r 

combination. Two machines in one — 
just a flick of the switch. 12" extra 
large carriage, typewriter keyboard, 
automatic margin control and 
lelocate key, drop in cassette ribbon! 
(90 day warranty J Centronics 
parallel or RS232 serial port built in 
( Specify ) . List S349.00. Sale .yiao.oo. 



OOlympia 



Printer/Typewriter tombination $399.n() 

Better than IBM Selectric. Superb 
computer printer combined with the 
world's finest electronic typewriter, 
Two machines in one, just flick the 
switch for up to 20 CPS printing (S0« 
WiirdH per minute) on a 15" carriage 
that handles up to H 1/8" In. paper. 
Urop in cassette ribbon — express lift 
off correction, Centronics parallel 
interface (90 day warranty i. 
List ST-ig.OO. Summer ShIv f:.tR!t.mi. 



IS Day Free Trial — 7 Year Immediate Replacement Warranty 



PARALLEL INTERFACES 

For VIC-20 and COM-64 — S59.00. Apple — $59.00. Atari — $59.00. 



Add SI 4 50 (of ihippmg hofidiing and iniufonce iMmoi^ residenii 
p(eQse odd 6*. tox. Add S29.00 for CANADA PUERTO R(CO. HAWAK. 
ALASKA APO f PO orders- Canadian orders must be in U.S. doUors. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check Money Order or Persona) Check. Allow J4 
doys delivery, 2 10 7 doys lor phone orders. 1 doy express moiP 
VISA MASTERCARD COD No C.O.D. to Canada or APOFPO 



Wc. Liove Our Customers 

22292 N. Pepper Rd., Barrington. Illinois 6fX)10 

312/382-5244 to order 
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Jli^ Commodore 64 jMk 

One Megabyte 



Sale 



Sale 



— — ^^^ . ^^ ^ >aie 

179 Disk Drive M79 

Store Spreadsheets, Databases, Wordprocessing Data, Etc. 

• Commodore 64 • PET • 8032 • B128 



The one megabyte disk keeps you from hunting through hundreds of disks for your programs: plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Dote, etc. 
With the One Megabyte Disk Drive you can store over S'/s times the capacity of the 1S41. You con store your 
own programs and any bock-upable commercial programs plus data from your business programs*. Perfect os o 
second Drive! ! ! ! Enter the world of professional computers today. C-64 requires IEEE interface 

List S899 00, Sale S179.00. LIMITED QUANTITIES! Requ.res 2 drive software 



$ 



199°° Sale n99°° 

^5V:t" High Speed 
150-170 CPS 

BUSINESS PRINTER 

The 8023 IS a highly advanced 136-250 column 15' V professionol tractor friction printer with full Bit image graphics and 
downloodable characters for custom reports and program listings. The paper feed includes a multiple pin tractor for 
smooth error free operation. With the ribbon rated ol 1 million charocters (no mess cartridge) and the print head ot tOO 
million charocters this printer will lost o lifetime. Full formatting with near letter quality mokes lining up decimol 
points, automatic "S" signs ond tobbing look fantastic and easy to use. With out a doubt THIS IS THE BEST PRINTER 
VALUE IN THE U.S.A. List S899.00 Sale S199.00. LIMITED QUANTITIES! 




SPECIFICATIONS 



PRINTING METHOD 

Seriol Impact Dot Matrix 
PRINT RATE 

150-170 Characters per 
second (CPS) 

PRINT STYLE 

Near Letter Quolity 

PRINT DIRECTION 

Bi-directional 



COLUMN CAPACITY 

1 36 - 250 

LINE SPACING 

Programmable 

COPIES 

3, including original 

RIBBON TYPE 

Cortridge (SI 4.95) 



RIBBON LIFE 

1 Million Characters 
PAPER WIDTH 
3" to 15' j" tractor or 
single sheet friction 
INTERFACE 
IEEE Protocol 
CHARACTER SIZE 
0.)16" high, 0.08" wide 



GRAPHICS 

Bit Image 

Programmoble Characters 
Reverse Characters 



ERROR HANDLING 

Internal 

Self ■ Diagnostics 

Microprocessor 



Commodore 64 IEEE Interface 



This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive ond 
8023 Printer os well as other IEEE devices. Seporte power supply insures reliobility. Fantastic Interface. 
List $109.95. If bought with printer or disk drive $69.00. 

(no interface needed tor PET. B128, and 8032 computers) 



Add S17.50 for shipping, handltng ond insurance. Illinois residents 
please add b', tox. Add S35.00 for CANADA PUERTO RICO HAWAII 
AlASKA APO-FPO orders. Canadian orders must be in U.S. dollors 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Casfiiers Check Money Order or Personal Check. Allow 14 
days for delivery. 2 fo 7 days lor phone orders 1 day express moil I 
VISA - MASTER CARD C.O.D 

No C.O.D loConodo APOFPO 



Wc Liovc Our Customers 

22292 N, Pepper Rd., Borrington. Illinois 60010 

312/382-5244 to order 
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COLOR MONITOR 
^ S ALE!! ! 



(Premium Quality) 

* Built in Speaker and 
Audio 

* Front Panel Controls 

* For Video Recorders 

* For Small Business 
Computers 

* Apple - Commodore - 
Atari - Franklin - etc. 



AdiJ SlJ 50 ihippif^g hondlmg ond in^iUTOnte 
Illinois roMdenis pleaie odd 6*» tax We do 
noT ihip lo loreign count rte^ [including 
Corioda Alo^ko Puefvo Rico APO FPO. 

Endose Cashiers Check Money Order or 
Pergonal Check Allow U doy^ 'oi delivery 7 
to 7 dayi for phone otd^tv I day express 
marl f 





14" COMMODORE 1 

(add SI 4.50 shipping) 

15 Day Free Trial 



(Premium Quality) 

* Beautiful Color 
Contrast 

* High Resolution 

* Separated Video 

* Sharp Clear Text 

* Anti-Glare Screen 

* 40 Columns x 24 Lines 

* Supports 80 Columns 

List $329*^^ 
13" Color Computer Monitor ^^^* Sole^JWISj; 

Connecting cables? 95 SUItlfflGr SOlQ yIOt 

lOO' 



702 COLOR MONITOR 

List S299.00 

- 90 Day Immediate Replacement Warranty 



Super Summer $^ 70' 
SizzlerSale I # T 



12" XTRON SUPER HI-RESOLUTION MONITOR Super summer $1 AQ95 

80 Columns X 24 Lines Super HiResolution 1000 lines Green or Amber Stiller Sole I W * 

Super-Clear "Easy to Read" texl with special anti-glare screen! (i/d. Oty.! List S249.00 

'iJ^a^ HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

Super Summer $OA95 
Sillier Sole O ' 



80 Columns X 24 Lines, Hi-Resolution, crisp clear easy to eioo nn 

reod text with onti glore screen ! A MUST for word processing. (Lid. Oty.l '■'*' ^1""-"^ 



12" MONITOR GREEN OR AMBER TEXT 

80 Columns x 24 Lines, easy to read up Iront controls Lid. Oty.) 

13 " RGB & COMPOSITE MONITOR 

Must be used to get 80 columns with CI 28 5 Atari ST 



List SI 59.00 



Super Summer $JLA 
Sillier Sale Oy 



List S399.00 



95 
00 



Super Summer SO^A 
SiizlerSale X/7 

■ Connecting coble $9.95 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U S A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



Add StO 00 tor shipping, tiondling oid insurance Illinois residents 
pleose odd 6% Ion. Add S20.00 tor CANADA PUERTO RICO. HAWAIt. 
ALASKA APO-FPO orders Conodior^ orders musi be in U.S. dollors, 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Coshiers Check Money Order or Personql Check. Allow 14 
days tor delivery 3 lo 7 doys tor phone orders 1 day express moti ! 
VISA MASTERCARD COD No C O.O to Conodo APOf PC 



We Lioxye Our Customers 

22292 N. Pepper Rd., Borrlngton, Illinois 60010 

312/382-5244 to order 
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Professional 
handicapping systems 



■^f^ 



PRESENTED BY PROFESSOR JONES • 



^v' 



GLO. Thoroughbred "Gold" Edilion™ 

A FiilJ feailgred mpro«5h*«l dnrilc"-'^ (if'jrjnH^i] Tor tfw piaf«9Cinal ind 
ifie sffous mma S159.9S com>ci*' 

EGLD. Enhanced 'Gold " Edition ^^ 

.Sift; J vfiqif «e>^:fo«; jiAmiH eeiior^- axlufletli Sl».95 cwiiflieie 

GLTD. Limited "Gold"^" 

f naUe^ Pnrtmtoul Hand^uppantD issign specific vaiuas Mitw iKiri^ w^t- 
la&i?^ t^V 'c>{>! die important C'catr progrjm ACighi based t>n a particular 
tTK< arid line turie ■; for nuulmam ivifi percfniage This pfogizm f; (te^gnea 
)a( ease d use The usih^ nx&. jw prDgnnimbip uperloact 

icofrtam IfiteipatecJ feiio^'"i S299.95 carn^iiftr 

GD. Gold Oog Analysis^" 

the ONLV profe^stona! girevtiound anjiySfS Jvailante rruT e^iiiHTt^ All 

■"inaMt"! SH9.96 w^inleqralefl Setroi $199.W 

iitniiM Veram $299.95 



¥^ 



MHH. Master Harness 

Handlcapper™ 

pacer rjcn #i Nwlti Ain«ica and CanadA $159.95 com(^E[!! 

S1N.tS »Anegril<« Setts' l<miiM S299.95 

PforMSor Pix FaDtball"< 

CaiKMSIAtlSIICAL WALYSS n Diu Bkc aning 'Des«ialal" fotiai; 

Vims n bt rvjiuairt stitsiica Scum S99.95 

ofllVn loss Pown Balng! S149 95 

NBA. Basketball " wa|99.9S .vuieoe S129.95 

w;|»w5I raltngs $149.95 

LOT. Lottery Analysis'" 

Sljirbficii coniaaiiMfl p^ocram uestgnwj to delect sutnt patlflrns m vrtmnpq 

mnntiis and di»B ^gitf,, ,3 4 a,,,! $79,95 

w'Lotto (Max 99 Dtgill S99.95 

PC-3 Potlable Computer (tk) mhctiouiii rnotiMgiiisiM ctey- 

Homl or Tmiipi - S249.95 iIMuOk KKHIilt cmnoulii and pragram 1 

M-1tX) Portable {24k) A.'cnace ot Thtvoutptred, Gnytuin] a Tionet 
S649.95 ilnctiide^ oanatilf cfrmnutei #4 tnOQ'j'n i 



BROCHURE AVAILABLE 



IBM' 

APPLE"* 

TRS-80'" 

CPM' 

COMMODORE'" 



Prof. Jones 

1940 W. Stale St. 
Boise, ID 83702 



48Hfl.FREE 
SHIPPING 



ibr CALL 
208-342-6939 



SOnWARI Add S6 OC hatd 
«an5'S6QOCQO 'U**S9Jii« 
$6 00 / Oul Of CouWy S900^ 
ID He&»deni5 A^ 1 3 A«eks per 
sonal checks < Cash pncp wily 
riikl?»ijVis3 MC'Ptite'. ^ut) 
leci 10 ch2ng« 
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"Oi/r operator will show you how easy it is to operate. At 
the moment, however, he's getting his diaper changed..." 

46 AHOY! 



lEI^RATA ^ 



We omitted two characters from line 620 in Lucky Lot- 
tery (July '85), causing the program to crap out with a 
syntax error. Correct line 620 to read as follows; 

•620 IF A$<>"[F1]" OR A$<>"[F3]" OR A$<>" 
[F5]" THEN 580 

In Duck Shoot (June '85), a printer malfunction added 
extra spaces to lines 10 and L20-160. These spaces should 
be ignored. 

We apologize for any problems caused by the above 
errors. Remember that corrections to Ahoy! programs are 
posted on our bulletin board (718-383-8909 -modem re- 
quired!) as soon as errors are spotted. 

SMALL THINGS CONSIDERED 

Ahoy! offers its congratulations to 

Kenny Hill 
Jamaica, NY 

winner of a subscription to Ahoy! courtesy of New 
York's Small Things Considered radio show (heard 
weeknights 5-8 and Saturdays 6-8 on WNYC AM83). 



PROGRAMMING 
TIPS WANTED 

Here's a chance for you, the readers of 
A/toy.', and us, the editors of Ahoy.', to work 
together. If we each do our port, we can make 
Ahoy/'s soon-to-debut programming tips col- 
umn the finest in any magazine. Your part will 
be to provide hints, tips, and programming 
routines that con simplify your fellow Commo- 
dore computerists' lives, enhance their abili- 
ties, or both. Our part will be to come up with 
a catchier title by the time this column actual- 
ly appears. 

Keep run-of-the-mill, twice-told tips to your- 
selves. This is Ahoyl We want valuable pro- 
gramming tips. And we'll pay premium rates 
for them. 

Send your submissions to Ahoyl Program- 
ming Tips, Ion International Inc., 45 West 34th 
Street-Suite 407, New York, NY 10001. 



'^ 



A Look Around 




Commodore's Disk Drive Companion to the 128 



After taking a close look 
at the capabilities of 
our 1571 prototype, we 
have been very fevor- 
ably impressed. In 
most areas operating speed has been 
improved, as much as nine times for 
a straight LOAD. Even faster perfor- 
mance can be obtained under certain 
conditions. Commodore also appears 
to have learned their lessons on the 
1541 very well, as careful attention 
has been given to previously trouble- 
some hardware details. 

SPICIFICATIONS 

To fulfill its primary purpose of 
supporting the Commodore 128 com- 
puter, the 1571 has two distinct per- 
sonalities. As a Commodore drive it 
behaves very much like a double 
sided 1541 disk drive. Fbrmatting a 
disk (a 43 second process) results in 
tracks 1 to 35 being laid dosvn on side 
0, the same as on the 1541. The flip 
side, side 1, contains tracks 36 to 70. 
Note that side 0, the side which the 
1541 uses, is the underside of the disk 
when it is placed on a surface with 
the label feeing up. As expected, dou- 
ble siding the disk also doubles the 
overall data storage capabihty. How- 
ever, not all of the drive capacities 
are doubled. 

Total disk capacity for a Commo- 
dore formatted disk is now up to 
349,696 bytes. A look at the direc- 
tory of a disk freshly formatted on 
a 1571 shows a total of 1328 blocks 
fiee. The maximum size of a sequen- 
tial file has been increased to a total 
of 337,312 bytes. A file this size will 





By Morton Kevelson 



span both sides of the disk. Interest- 
ingly enough, the maximum size of 
a relative file is 167,132 bytes, the 
same as on the 1541. 

Track 18 on side is reserved for 
the block availability map (BAM) and 
the disk directory. The BAM tells the 
disk drive which sectors have been 
reserved for data storage. Sector zero 
of this track contains the BAM for 
both sides of the disk. A separate 
copy of the BAM for side 1 is main- 
tained in sector of track 53. The ca- 
pacity of the directory is limited to 



144 file entries, as on the 1541, al- 
though the remainder of track 53 
does not appear to be used for any 
purpose. 

THi DOS 

Much work appears to have gone 
into ti»e built-in disk operating system 
(DOS), so much so that Commodore 
has upgraded the DOS version to 
number 3.0. This is puzzling, as DOS 
3.0 is also used in the Commodore 
D9060 and D9090 hard disk units. 
The most recent DOS for a Commo- 
dore floppy disk unit was version 2.7 
on the 8250 dual drive and its SFD 
1001 single drive counterpart. The 
latest revision on the 1541 is DOS 2.6. 

TIMINO 

With regard to operating speed we 
have some good news. As mentioned 
above, formatting time for both sides 
of the disk is only 43 seconds. Pro- 
gram loading time, when used with 
a C-I28, has been speeded up by a 
factor of nine as compared to a C-64 
with a 1541 disk drive. The follow- 
ing table shows the result of some 
simple benchmarks tests: 





C-64/1541 


C-128/1571 


30K LOAD 


77 Sec. 


8.5 Sec. 


30K SAVE 


87 Sec. 


58 Sec. 


40K SEQ File 






Read & Write 


230 Sec. 


145 Sec, 


Read Only 


112 Sec. 


45 Sec. 


Write Only 


120 Sec. 


100 Sec, 


RELFUe 


271 Sec. 


280 Sec. 



The sequential file tests were con- 
ducted l^ running the following 
BASIC program: 

AHOY! 47 




The 1571 drive with its lid removed. 
The power supply is on the right. 




Main circuit board rests below 
power supply and drive mechanism. 



10 REM DISK DRIVE TIMING 

20 REM SEQUENTIAL FILE BEN 

CFIMARK 

30 A$="ABCDEFGHIJK" 

40 F0RI=1T08 

50 B$=B$+A$ 

60 NEXT 

70 0PEN8,8,8,"SEQ FILE TES 

T S W" 

80 F0RI=1T0460 

90 PRINT#8,B$ 

100 NEXTI 

110 CLOSES 

120 0PEN8,8,8,"SEQ FILE IE 

ST,S,R" 

130 FORI=1T0460 

140 INPUT#8,B$ 

150 NEXTI 

160 CLOSES 

The relative file test consisted of 
creating a file with 512 records where 
each record was 254 bytes. Only the 
last record was written to. 

These timing tests are only part of 
the story. The 1571 has a "burst" 
mode which should result in much 
fester data transfer rates between the 
disk drive and a C-128. The burst 
mode is recommended only for 
non-critical data, such as bit maps, 
where a data error is not fetal. The 
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high speeds used by the burst mode 
leave httle time for EKDS error check- 
ing routines. Commodore 64 users 
will not be able to take advantage of 
the fester operating speeds wiUiout 
special software. The C-64 operating 
system does not have the required 
routines. Using a 1571 with a C-64 
will not give any speed advantege, al- 
though the extra disk capacity will 
still be available. 

The discussion until this point has 
centered about the Group Code Re- 
cording (OCR) scheme which is vir- 
tually unique to Commodore format- 
ted disks. The 157rs second person- 
ality gives it the ability to format 
disks using modified frequency mod- 
ulation (MFM) double density re- 
cording techniques. This format has 
been adopted b^ a large segment of 
the personal computer community, 
most notably by many CP/M ma- 
chines. Even in this case there are 
variations among machines, most 
notably in the total capacity of a for- 
matted disk. This can be related di- 
rectly to the number of bytes in a disk 
sector. 

The 1571 has considerable flexibil- 
ity with the MFM format. Sector ca- 
pacity can vary ft-om 128 bytes up to 
1Q24 bytes. The following table shows 
the possible combinations. 



If 



Sector 
Capacity 



ff of Sectors 
per IVack 



Disk 
Capacity* 



128 Bytes 26 260K 

256 Bytes 16 320K 

512 Bytes 9 360K 

1024 Bytes 5 400K 

^Formatted capacity for a double sided disk. 

The MFM formats, as well as the 
high speed burst mode, are accessed 
via a new direct disk command, UO. 
The preliminary documentation in- 
dicated that mixing of the various 
MFM and GCR formats was possible 
on a single disk. Even formatting of 
single tracks is possible. These pros- 
pects are sure to gladden the hearts 
of many copy protection enthusiasts. 

We will report on CP/M on the 
C-128 widi the 1571 in the near fu- 
ture. As of this writing (mid- June) 
Commodore has not released the 
CP/M operating system and support 




Qoseup of the main circuit board. 
See key at right for chip layout. 



utility disks. 

COMPATIBILITY 

Although the 1571 is a double sided 
drive, it is still fully capable of read- 
ing and writing single sided disks for- 
matted on a 1541 disk drive. When 
working within C-128 mode, the 
drive initially assumes that the disk 
is double sided. If a single sided disk 
is inserted it takes the drive about 15 
seconds to convince itself that the 
second side is blank. Once done, all 
subsequent reads and writes are done 
in single sided mode. Unfortunately 
this second side checking routine oc- 
curs every time disks are swapped. 
The 15 second delay could become 
annoying if single sided format disks 
are frequently mixed with double 
sided disks. 

Double sided disks are filled on 
side first. If you use a 1541 with 
a double sided disk you wiU not be 
able to access the second side. Flip- 
ping the disk will not work as the ro- 
tation is reversed. In addition, the 
track numbers run from 36 to 70. 
These are illegal as for as the 1541 
DOS is concerned. The real difficulty 
is when a 1571 is added to an existing 
C-64 ^stem. As the disk fills, files 
will spill over to the second side. Try- 
ing to read one of these on a 1541 wiU 







J "» 


^aii* 


tAM 






.} "" 


Urtsi 


UK 

' MOM 








< } "» 




^ «saa 




L CUSTOM 
[LSI CHIP 








JWPIVTt 

D [ 






1 

r 





1571 MAIN CIRCUIT 
aOAWP LAYOUT 

A-CIA CHIP 

B-MinOHIOCIiBOB 

C-VIA CMIIP 

P-MFM DISK SaiVI eOMTMOLLIR 

■-MVICI MHIMWn flUICTION SWITCH 

r-«niAL POST COHNMTOBt 

return an illegal track or sector er- 
ror. The 1541 does not recognize 
track numbers greater than 35. 

When the 1571 is connected to a 
C-64 it reverts to 1541 mode. Under 
these conditions the drive will not 
read the second side of a double sided 
disk. Even formatting time reverts to 
70 seconds for a single side! Com- 
patibility with 1541 software is very 
good. All the standard DOS com- 
mands function as before. Nearly all 
of the copy protected disks we tried 
LOADed without any difficulty. 

THE ELECTRONICS 

The internal works consist of three 
modules, two for the drive electronics 
and one for the hardware. The pow- 
er supply module is completely con- 
tained in a perforated metal cage lo- 
cated directly above the main circuit 
board. This mounting position in- 
sures that heat dissipation will be 
away from the main electronics. The 
major heat generating components 
are the twin voltage regulators and 



transformer on the left side. These 
supply the five volt DC and twelve 
volt DC requirements for the drive. 
The 120 volt supply Line is ftiUy 
filtered. 

The heart of the drive electronics 
is a 6502A microprocessor with 32 
kilobytes of disk operating system in 
ROM supported by two kilobytes of 
RAM. A 6526 CIA chip and a 6522 
VIA chip handle the I/O require- 
ments. The Commodore format GCR 
recording is handled by a custom 
lai;ge scale integrated circuit. The 
MFM recording for CP/M format 
disks is taken care of by a Western 
Digital WD1770 chip. 

MECHANICALS 

As with all of Commodore's disk 
drives, the design of the 1571 is rev- 
olutionary. For the end user the most 
significant improvement is the incor- 
poration of an optical sensor for the 
track one head position. This should 
virtually eliminate the alignment 
problems which plagued the 1540/ 
1541 disk drives. The mechanical 
stops are stUl present but th^ are not 
normally used. The disk operating 
system arrests head movement at the 
track one position when formatting 
a disk or error checking as might be 
done with some forms of copy pro- 
tection. 

To insure proper seating of the 
disk, the 1571 spins the drive spindle 
every time a disk is inserted or re- 
moved. This operation is triggered by 
the write protect sensor. Of course, 
the same electronics also inform the 
DOS whenever a disk is swapped. 

The 1571 is a double sided drive. 
Two heads (which in this case are 
definitely better than one) are pro- 
vided to accommodate the storage of 
data on both sides of the floppy sur- 
face. These are situated in diametri- 
cally opposing positions so as to 
sandwich the floppy medium between 
them. These hard, highly polished, 
precision surfaces must never make 
contact lest their fmish be marred. A 
mechanical interlock has been incor- 
porated into the latch mechanism for 
this very purpose. The heads will re- 
main in the open position unless a 
disk is inserted to trigger the inter- 




Qoseup of drive mechanism, which 
incorporates a hrushless DC motor. 




A closeup and inside new of^e 1571 
disk drivel's power supply. 

lock. This is true regardless of the po- 
sition of the external operating lever. 

Head cleaning, for those who shun 
the costly cleaning kits, requires a 
minimum of disassembly. Simply re- 
move the top cover to gain access to 
the heads. As can be seen from the 
photographs, the power supply and 
the main electronics board are situa- 
ted behind and below the drive me- 
chanicals. There is no need to remove 
any of these components to clean the 
heads. Do not attempt to force the up- 
per head support arm beyond its me- 
chanical stop. Movement is rather re- 
stricted as compared to the design on 
the 1541. A good-quality clean cot- 
ton swab, moistened with isopropyl 
alcohol (91%), does the job. As with 
all component disassembly, we cau- 
tion our readers to use their own good 
judgment. Opening of the disk drive 
may void the warranty. If you have 
any doubts on your ability to handle 
diis work, leave it for a qualified ser- 
vice technician. 

The drive mechanism is manufac- 
tured by Newtronics/Mitsurai Elec- 
tric Co. Ltd. It incorporates a brush- 
less direct drive DC motor for spin- 
ning the disk. The motor control 
electronics are on a circuit board 
which surrounds the armature. 
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As expected, the back panel in- 
cludes a pair of serial ports to allow 
daisy chaining of peripherals, the 
main power socket, and the on/off 
switch. A significant new addition is 
a pair of miniature switches right next 
to the serial port connectors. These 
allow the selection of device numbers 
8 through 11. Interestingly enough, 
the preliminary documentation still 
talks about the cutting of internal 
jumpers to change device numbers. 

In addition to the mandatory disk 
slot, the front panel sports a twist 
lock door latch and a pair of colored 
indicating lights. For some reason 
Commodore has departed from their 
previous color scheme. In direct op- 
position to the 1541 the power on Ught 
is red and the drive indicator light is 
green. 

THi IMANUAL 

Judging from the draft copy of the 
manual, users will be in for a pleasant 
surprise. Although it is directed to the 
reader with some knowledge of 
BASIC, the manual contains a lot 



more information than the early ed- 
itions of the 1541 book. Carefully 
written explanations with numerous 
detailed examples are sprinkled 
throughout the text. The draft manual 
is over sixty pages, with two more 
chapters yet to come. 

Numerous tidbits of information 
have been included. Many of these 
were apparently gleaned from the 
pages of the various Commodore 
publications. Commodore has even 
officially named the ignominious as- 
terisk file as a "splat" file. Splat files 
occur when a file is opened and not 
property closed by the DOS. They list 
in the directory with an asterisk next 
to their file names. As many a user 
has woefiilly found out, they can foul 
up a disk if not properly treated. De- 
tails for their cure are now an offi- 
cial part of the 1571 manual. 

CONCLUSION 

The 1571 disk drive makes an ex- 
cellent companion to the C-128. The 
system provides all of the features 
Commodore users have been looking 
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for since the introduction of the VIC 
20. Much has been done to improve 
on the marginal performance of the 
serial bus as implemented on the 
1541. (This bus was actually a low 
cost compromise which allowed the 
C-64 to appear on the market in a 
hurry.) 

The flexibility of the 157rs oper- 
ating modes will be put to full use 
by the CP/M 3.0 Plus operating sys- 
tem. Several popular disk formats 
will be directly supported or easily 
accessed by a set of simple keyboard 
commands. In particular, the sup- 
ported formats are: 

1. Commodore Formats (GCR) 

• The existing CP/M 2.2 disk for- 
mat, which is used by a Commodore 
64 with the CP/M cartridge. Disk ca- 
pacity is limited to 136 kilobytes in 
this format. 

• A new Commodore CP/M for- 
mat which will utilize the ftill 360 
kilobyte capacity of a double-sided 
1571 disk. 

2. Non-Commodore Formats 
(MFM) 

• Osborne (single sided only) 

• Kaypro 

• Epson 

• IBM CP/M-86 (single- and dou- 
ble-sided disk capacities from 160 
kilobytes to 360 kilobytes) 

Additional formats are possible but 
will require special programming of 
the 1571 disk drive. In all cases data 
files may be transferred between the 
Commodore 128 and the respective 
machines. Of course, you cannot run 
IBM programs since CP/M 3.0 runs 
on an eight bit Z-80 microprocessor 
while CP/M-86 runs on a 16 bit 8088 
microprocessor. 

The 1571 is only the first step in 
high quality peripheral support for 
the C-128. Work is already well under 
way on the 1572. a dual drive version 
of the 1571. It also would not surprise 
us to see a Commodore 3 V* inch hani 
disk with a 10 to 20 megabyte capa- 
city for under $5(K) in the near fu- 
ture. This combination of features 
with low cost is sure to encourage 
many existing Commtxlore users into 
the upgrade path. We also expect to 
welcome many new users into the 
Commodore fold. D 
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Touring the 
Commodore 128 Keyboard 

Last month we presented an inside view of the C-128. 

Starting this month we will take a closeup look at 

some of the specific features which make this new machine a 

significant improvement over its predecessors. 

By Morton Kevelson 



The ergonomic consid- 
erations in the design 
of the C-128 keyboard 
are readily apparent. 
The keyboard's low pro- 
file should help reduce fatigue by al- 
lowing the user's wrists to rest com- 
fortably on the table. Touch typists 
will welcome the raised dimples on 
the F and J home keys, as well as on 
the 5 key of the numeric keypad. The 
Vk inch wide clear space between 
the keys and the cooling vents is sure 
to become a haven for all sorts of key- 
board overlays. All in all, there are 
92 keys to bewilder the novice. 

Observant readers will also note 
that the main part of the keyboard is 
nearly an exact duplicate of the Com- 
modore 64's. The only notable change 
is the relocation of the function keys 
to a horizontal configuration at the 
right of the top row. Present 64 own- 
ers should have very little trouble be- 
coming comfortable with the C-128 
layout. 

Physical attributes aside, there is 
a lot more to the C-128 keyboard than 
meets the eye. Hidden beneath the 
tactile array, under control of the new 
operating system, lurks a multitude 
of functions designed to ease the us- 
er's sojourn into the realm of com- 
puting with the C-128. 

If you have been using a VIC 20 
or a C-64, you will already be femil- 
iar with a good portion of the key- 
board's capabilities. The full screen 
editor functions in the same way as 
these machines'. The INST/DEL key 
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Above the main keyboard of the 128 

are (top) Esc, Tab, Alt, Caps Lock, 

(middle) Help, Line Feed, 40/80, No 

Scroll, and (bottom) cursor keys. 

still eats characters to the left, or 
when shifted opens spaces to the right. 
The quote and insert modes still op- 
erate in the same fashion which non- 
Commodorists find so thoroughly be- 
fuddling. The CLR/HOME key still 
moves the cursor to the top left cor- 
ner of the screen, or when shifted 
clears the entire screen. As with the 



C-64, text can be displayed in 16 col- 
ors, as the labels on the 1 to 8 keys 
indicate. These colors are still ac- 
cessed by holding down the 
CONTROL key or the Commodore 
logo key. Unlike the C-64, the labels 
on the number k^ now indicate both 
colors which are available for that key. 
As before, text display can be re- 
versed with a CONTROL/9 and re- 
stored with a CONTROL/0. 

The real power of the C-128 key- 
board is in the new editing and con- 
trol features which have been incor- 
porated into the BASIC 7.0 operating 
^stem. For convenience, we have 
classified these features into three 
categories: the function keys, the 
ESCape key sequences, and the 
CONTROL key sequences. Let's take 
a close look at each in turn. 

THE FUNCTION KITS 

On power up, eight useful BASIC 
phrases are preassigned to the C-128 
function keys. These phrases can be 
viewed by executing BASIC 7.0's new 
KEY command without any parame- 
ters. The following list should appear 
on the display. 

KEY 1, "GRAPHIC 
KEY 2,"DLOAD''-l-CHR$(34) 
KEY 3,''DIRECroRY''+CHR$(13) 
KEY 4,"SCNCLR''+CHR$(13) 
KEY 5,"DSAVE''-I-CHRS(34) 
KEY 6,"RUN''+CHR${B) 
KEY T.-LISr+CHRSCB) 
KEY 8,"MONITOR''-hCHR$(I3) 
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Getting this list on the screen 
serves two purposes. First, it reminds 
you what is programmed into the 
keys. Secondly, it gives you the op- 
portunity to easily change the con- 
tents in any of the eight function keys. 
For example, if you are not planning 
to do any graphic programming, you 
may want to redefine fl. Just cursor 
up to the "3" in KEY 3 and change 
it to a "1". Hit RETURN and the di- 
rectory will now be displayed by fl . 
Enter ' 

KEY 3, "OPEN A,4:CMD4"+CHR$ 
(13) 

followed by 

KEY 4,"PRINT#A:CL0SE4"+CHR$ 
(13) 

and you will be all set for easy print- 
er listing. Note how the numbers 1 
through 8 which immediately follow 
the KEY statement refer only to the 
function keys. No other keys are af- 
fected by this command. 

There is one possible disadvantage 
to having the function keys prepro- 
grammed. BASIC programs written 
for the C-64 do not expect to find a 
lengthy message when examining the 
function keys. This can be easily 
remedied by reprogramming all eight 
keys with the following: 

FOR 1=1 TO 8: KEY I,CHR$(I+1 
32): NEXT 

This will place the traditional (for 
VIC 20 and C-64 users) CHRS codes 
into the function keys. You will prob- 
ably want to do this in every program i 
which uses the function keys to con- 
trol program operation. 

ESCape KEY SEQUENCES 

The C-128 has the powerfiil full 
screen editor that a veteran Commo- 
dore user will not feel at home with- 
out. This editor has been greatly en- 
hanced with the addition of a series 
of ESCape key commands. The result 
is that the C-128 screen editor ap- 
proaches the capabilities of a full 
blown text editor. Writing and edit- 
ing BASIC programs has never been 
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the values 
generated in 
location 212 
by the keys 
of the C-US 
keyboard. 
(See C-128 
Keyboard 
Distinctions 
below for 
explanation.) 
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c-128 KEYBOARD 
PISTINCTIONS 

The C-128 sports a numeric keypad which 
should greatly speed up data entry in numer- 
ically intensive applications, most notably 
spreadsheets. These keys, as well a.s the dis- 
crete cursor keys, duplicate existing keys on 
the main keyboard. There are applications 
where a numeric keypad may be of little or 
no interest. Instead, various program control 
functions could be assigned to the new keys. 

For such applications i( would be desirable 
to distinguish the keypad from the number 
keys on the main keyboard. The iraditionai 
ASCII code check following a GET will not 
work, since the same ASCII code will be re- 
turned by the corresponding keys. For ex- 
ample, pressing a "1" on the keyboard or key- 
pad returns an ASCII value of 49. Fortun- 
ately, there is a simple way for BASIC to dis- 
tinguish which physical key has been pressed. 

Locations 211 and 212 are used by the op- 
erating system for this purpose. The values 
stored here every sixtieth of a second are 
unique for every key At address 211 the 
SHIFT. Commodore logo, and CONTROL 
keys are identified. These keys will set bits 
zero, one, and two respectively at this ad- 
dress. If you PRINT PEEK{2U) a zero will 
normally be returned. The SHIFT key 
changes this to a one. The logo key returns 
a two and the CONTROL key results in a 
four. These values are additive, so holding 
all three keys down gives a seven. 

The remainder of the keys, with the ex- 



ception of the RUN/STOP. RESTORE, ALT, 
and 40/80 keys, place a unique value in 
address 212 when pressed. On the C-t28 this 
location contains an 88 when no key is 
pressed. Press any other valid key and a val- 
ue between and 87 will appear. The table 
above shows the values generated in location 
212 by the keys on the C-128 keyboard. The 
following program can be used to reproduce 
these results: 

10 DO:GETKEY A$ 

20 PRINT ASC(A$);PEEK(212) 

30 LOOP 

The same program in BASIC 2.0 on the 
C-64 or VIC 20 would be: 

10 GET A$:IFA$=""THF:N'10 
20 PRINT ASC{A$);?EEK(203) 
30 GOTO 10 

Note the change in the PEEKcd address. 
The operating systems on all Commodore 
machines have many similarities. Addresses 
203 and 653 on the VIC 20 and the C-64 
are equivalent to 212 and 211 on the C-128. 
The values in 203 for the C-64 will be the 
same for the corresponding keys in 212 on 
the C-128. However, the results on the VIC 
20 are quite different. The shift flag values 
are the same for all three computers. You 
may want to use the KEY statement on the 
C'128 to clear the function keys before 
RUNning this program, or strange things 
may result. 



easier. 

There are 21 ESCape key sequen- 
ces implemented on the C-128, almost 
one for every letter of the alphabet. 
These sequences are so useftil that 
you will probably want to become fe- 
miliar with them in a hurry. The best 
way to become acquainted with them 
is just to use them while writing a 
program. Afterwards, if you really 
want to see how dependent you have 
become on the new features, just GO 
64 and enter the same program. Be 
forewarned, you m^ be in for a frus- 



trating experience. 

Each of the ESCape sequence 
commands are executed by pressing 
and releasing the ESC key followed 
by the appropriate letter key. Do not 
hold down both keys at once. For ex- 
ample, pressing the ESC key fol- 
lowed by the "A" key places the edi- 
tor in automatic insert mode. Any- 
thing you type will automatically 
push the remainder of the display 
ahead of it. This is a tremendous con- 
venience for rearranging text between 
quotes or for adding temporary com- 



mands during program debugging. It 
is especially useful when you keep in 
mind that the C-128 permits entry of 
up to 160 characters (four 40 column 
lines or two 80 column lines) into a 
BASIC program line. Note that this 
is not the same as opening a gap by 
using the INST/DEL key. All of the 
keyboard control functions, such as 
the cursor keys and the CLR/HOME 
key as well as the INST/DEL key, re- 
tain their usual functions. In other 
words, insert mode does not place the 
screen editor into quote mode. 

The screen parser has been en- 
hanced in other ways as well. It will 
now link up to a fijll screen of text 
at one time. By comparison, the C-64 
is limited to only two screen lines and 
the VIC 20 handles four screen lines. 
However, trying to enter more than 
160 screen characters into a single 
BASIC program line results in a 
7STRING TOO LONG ERROR. By 
comparison, exceeding the C-64's two 
line limit simply resets the screen 
linker to the next two lines. This full 
screen linking on the C-128 must be 
kept in mind when using the ESCape 
functions. The erase to end of line 
command (ESC Q) will remove all 
text from the current cursor position 
to the end of screen text or the next 
carriage return, whichever comes 
first. The erase to laeginning of line 
command (ESC J) works analogously 
but in the opposite direction. The 
same is true of the move to end of 
line (ESC K) and move to beginning 
of line (ESC J). On the other hand, 
the insert a line (ESC I) command 
is a screen line function. Use of this 
command within a BASIC line opens 
up one screen line while maintaining 
the line links for BASIC editing. 

All of these functions can also be 
obtained under program control. The 
following sample program illustrates 
some of the effects which can be eas- 
ily obtained by using the ESCape se- 
quences in PRINT statements: 

10 PRINT CHR$(147):REM CLE 

AR SCREEN 

20 CHAR, 14, 11, "OFF THE TOP 
It 

30 CHAR, 12, 12, "DOWN THE BO 
TTOM" 



40 CHAR, 0,12 

50 FOR I=0T012 

60 PRINT CHR$(27)"I"CHR$(2 

7) "I";: REM INSERT TWO LINE 

S 

70 PRINT CHR$(27)"V"; :REM 

MOVE SCREEN UP ONE LINE 

80 NEXT 

Note that CHR$(Z7) is the ESCape 
key. Several keystrokes can be saved 
by programming PRINT" < reverse 
[ > X" where the reversed left brac- 
ket is obtained by simultaneously 
pressing CONTROL, SHIFT, and 
the colon keys while in quote mode. 
The reverse left bracket between 
quotes in a BASIC statement will 
generate a CHR$(27), This is a use- 
ful trick to keep in mind for sending 
escape codes to a printer with a 
PRINT# statement. Note that the 
ESCape key commands only work 
when sent to the screen. If you want 
to see how the program works try 
adding the following lines: 

65 SLEEP 1 
75 SLEEP 1 

The SLEEP command pauses pro- 
gram execution for the specified 
number of seconds. Also note the use 
of the CHAR command to conveni- 
ently position the cursor on the 
screen. The CHAR command is real- 
ly meant to display text on a graphic 
screen. In this context it is being used 
as a PRINT AT command. 

One of the more interesting capa- 
bilities of BASIC 7.0 is the ability to 
define windows. Once a window is 
set, all subsequent screen output is 
restricted to this area. Try the follow- 
ing program: 

10 PRINT CHR$(147) 
20 CHAR,10,10,CHR$(27)"T" 
30 CHAR,10,10,CHR$(27)"B" 
40 LIST 

This will define a screen window 
whose upper left hand comer is at the 
tenth row and tenth column position. 
The lower right hand comer will be 
at twentieth row and column position. 
Note the use of the CHAR statement 
to position the cursor as well as to 



set the window coordinates. Also 
note the coordinates in the CHAR 
statement of line 30. These are cor- 
rect as shown. The CHAR statement 
references its coordinates from the 
upper left hand comer of the current- 
ly active screen window. Since this 
has been already defined by line 20, 
we have to take this into considera- 
tion for line 30. 

To help keep track of the current 
screen window, BASIC 7.0 includes 
the RWINDOW function. The fol- 
lowing sequence of commands; 

R=RWINDOW(0) 
C=RWIND0W(1) 

will place the number of rows and 
columns into the variables R and C. 
While entering a BASIC program, 
the window commands can be used 
to partition the screen into a message 
area and a text area. Just write your- 
self some notes at the top of the 
screen and set the screen window. 
Continue to enter BASIC program 
lines. All screen control functions. 
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such as clear or home, will not af- 
fect the message area. To cancel a 
window just hit the HOME key twice. 

Under program control, a window 
can be used to eliminate the need to 
continuously rePRINT a screen lay- 
out. The message area in the window 
can be manipulated as desired with- 
out affecting the remainder of the 
screen. Note that only one window 
can be active at any time. 

A word about the scroll commands. 
Turning scrolling off, with an ESC 
M, causes the cursor to wrap from 
the bottom of the screen to the top 
of the screen. There is also a NO 
SCROLL key which according to the 
preliminary documentation is sup- 
posed to perform the same function. 
This is not so. We found this key to 
work as a pause as described below, 

CQNTROL KEY SEQUENCES 

Turn on your C-128, hold down the 
CONTROL key, and press G. Sur- 
prise! If you had the volume turned 
up on your television or monitor, you 
were rewarded with a pleasant bell 







tone. This may not seem like much, 
but if I had a nickel for every time 
someone asked me for a simple way 
to make that noise on a C-64, 1 would 
have retired a wealthy man some time 
ago. Commodore has finally imple- 
mented the traditional teletype "bell" 
in the C-128 console. The same tone 
can be produced with a PRINT 
CHR$(7). 

In genera] the CONTROL func- 
tions are not unique to the C-128. 
Most of them will be familiar to pre- 
sent users of die VIC 20 or the C-64. 
The C-128 does have some significant 
changes and additions to this key- 
stroke sequence. Note that unlike the 
ESCape key sequence you have to 
hold down the CONTROL key while 
pressing the second key. Also, 
CONTROL key commands can be 
placed into PRINT statements while 
the screen editor is in quote mode. 
In contrast, pressing the ESCape key 
while in quote mode will activate the 
ESCape key sequence. 

As mentioned above, a CONTROL 
left bracket will send an ESCape 
character. Try it. If the editor is not 
in quote mode, this key sequence will 
initiate the ESCape mode. This lit- 
tle-known key sequence will also 
generate a CHR$(27) on the C-64 and 
the VIC 20. Of course, this has no 
direct effect on these two machines. 

The C-128 has a TAB key on its 
keyboard right next to the ESCape 
key. Pressing this key generates a 
CHR$(9), which moves the cursor to 
the next tab stop on the screen. The 
CONTROL I key combination will 
have the same effect. On the VIC 20 
or the C-64, a CHR$(9) will enable 
the character set switch capability. On 
the C-128 this has been moved to 
CONTROL K ( CHR$(U) ). The dis- 
able-character-set-change command 
has also been changed to CONTROL 
L ( CHR$(12) ), although the old 
CONTROL H ( CHR$(8) ) has no 
unique C-128 function. Programmers 
accustomed to these codes on the 
VIC 20 or C-64 should take note. 

Getting back to the tab functions, 
the CONTROL X ( CHR$(24) ) will 
set or clear a tab at the current cur- 
sor position. However, to clear all 
tabs you have to use the ESCape Z 



TABLE OF ESCAPE KEY COMMANDS 


@ 


Erase screen from cursor lo end of 




window 


A 


Automatic insert mode 


B 


Set bottom right corner of window at 




cursor 


C 


Cancel automatic insert mode 


D 


Delete current linked line 


I 


Insert a screen line, preserve line links 


J 


Move to the beginning of current 




linked line 


K 


Move to the end of current linked line 


L 


Turn on scrolling 


M 


Turn off scrolling 


N 


Un-reverse 80 column display 





Cancel insert, quote, reverse, and 




flash modes 


P 


Erase from the beginning of current 




linked line to the cursor 





Erase from cursor to the end of cur- 




rent linked line 


R 


Reverse 80 column display 


T 


Set top left comer of window at cur- 




sor position 


V 


Scroll screen up one line 


W 


Scroll screen down one line 


X 


Toggle between 40 and 80 column 




display 


Y 


Restore default TAB stops at every 




eighth character position 


Z 


Clear all TAB stops 


ESC Cancel ESCape mode. (Any nonim- 




plemented character will also cancel 




ESCape mode.) 



sequence. The best way to learn 
about the tab stops is just to play with 
them. Note that a TAB command 
does not wrap the cursor to the fol- 
lowing screen line. Tabbing to the end 
of a line simply leaves the cursor at 
that position. 

Another change is worth noting. 
The CONTROL J { CHR$(10) ) code 
generates a linefeed without a car- 
riage return. On the C-64 and VIC 
20 both a linefeed and carriage re- 
turn will be produced. 

The remaining unique C-128 
CONTROL codes are associated 
with the 80 column display. 
CONTROL B ( CHRS(2) ) turns un- 
derline on. However, there is no cor- 
responding CONTROL sequence to 
turn it off. You will have to PRINT 
CHR$(130) to cancel underline mode. 
The 80 column characters can be set 
to flash by using a CONTROL 
{ CHR$(15) ). As with underline 
mode, there is no CONTROL se- 
quence to turn flash off. Use PRINT 
CHR$(143). 

Continued on page 74 
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PROGRAMMING CHALLENGES 

By Dale Ruport 



ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodares, c/o Ahoy! 

P.O. Box 723 

Bethel, CI 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problem you 
are solving. Also show sample runs if possible, where 
appropriate. Be sure to tell what makes your solutions 
unique or interesting, if they are. Programs on diskettes 
are welcome, but they must be accompanied by listings. 
You must enclose a stamped, self-addressed envelope if 
you want any of your materials returned. Solutions re- 
ceived by the middle of the month shown on the maga- 
zine cover are most likely to be discussed, but you may 
send solutions and comments any time. Your original pro- 
gramming problems, suggestions, and ideas are equally 
welcome. The best ones will become Commodares'. 



Problem ^21-1; Geometry Fun 

This challenge was suggested by Phil MacLean (Co- 
lumbus, OH). The user inputs three ordered pairs of num- 
bers (x,y values in Cartesian coordinates), and the com- 
puter teUs whether or not they represent coUinear points. 
The three points are coUinear if they lie on the same line. 
If they are, the computer tells which lies between the 
other two on the line. Any values of x and y are allowed. 
Better dust off the geometry books! 



Problem #21-2: Logical Fun 

Michael P. Marron (Stony Brook, NY) submitted this 
Commodare. Four students were discussing their upcom- 
ing report card marks. They made the following state- 
ments: 

AL: (1) We'll all get different marks. 

(2) If I get a 95, then Connie will get a 65. 
BETTY: (3) If Connie gets a 75, then Al will get a 65. 
(4)A1 wit! get a better grade than Dan. 
CONNIE: (5) If Betty doesn't get a 95, then Al will get a 75. 
(6) If I get an 85, then Dan won't get a 65. 
DAN: (7) If Connie doesn't get a 95, then I'll get an 85. 
(8) If Betty doesn't get an 85, then I won't either. 

Your task is to write a program which (A) determines 
the mark for each student assuming the above statements 
are al! true, and (B) finds all possible solutions assum- 



ing statement number (1) is false. For extra credit, de- 
termine how many of the original eight conditions can 
be eliminated and still have only one solution. 



Problem ft 21- J: Decimal Columns 

E. Harvey Hammett (Houston, TX) asked for a short 
method of lining up decimal points when numbers are 
printed in a column. Your routine should print on the 
screen, but it should also be usable on a printer. That 
means you are not allowed to use any cursor movement 
keys. If the user enters 12.5, 134,56, .0026, 23, and 1.234, 
the computer prints out: 

12.5 
134.56 
,0026 
23 
1.234 



Problem #21-4: REM Remover 

Jim Speers (Niles, MI) has sent a five line subprogram 
which may be added to the end of another program be- 
ginning at line 55000. When the user types GOTO 55000, 
this subprogram deletes all lines beginning with REM 
or a colon. Jim uses this subprogram in debugging. Any 
trace statements to print variables or to STOP the pro- 
gram may be preceded by a colon. They will be execut- 
able, but when debugging is done, they may be removed 
simply by typing GOTO 55000. Can you come up with 
such a program? 



This month we have readers' solutions to the May 1985 
Commodares. Problem #17-1: Decimalizing Dates brought 
a grand total of three responses. The problem is not real- 
ly very difficult, and it is a "real wortd" problem. Busi- 
ness progi^ams typically use a decimal form of a date rath- 
er than a "month, day, year" format for internal calcula- 
tions. The solution from Jim Speers (Niles, MI) is listed 
below, Jim claims that mid-1985 should be listed as 1984.5 
since he considers the first year as 0. Midway into the 
first year should then be 0.5. We'll leave it up to you to 
modify the program if you want mid-1985 to be shown 
as 1985.5. 



1 REM 
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2 REM PROBLEM #17-1: DECIMALIZING DATES 

3 REM SOLUTION BY JIM SPEERS 

4 REM 

100 DIMD(12),I$(3):F0RI=1T012:READD(I):N 
EXT 

110 DATAO, 31, 59, 90, 120, 151, 181, 212, 243, 2 
73,304,334 

120 PRINT" [CLEAR] [DOWN] ENTER DATA (E.G. 
10/5/1985)"; :INPUTA$:K=1:FORI=1TOLEN(A$) 
130 Z$=MID$( A$ ,1,1): IFZ$="/"ORZ$="-"THEN 
K=K+1: GOTO 150 
140 I$(K)=I$(K)+Z$ 

150 NEXT:M=VAL(I$(1)):D=VAL(I$(2)):Y=VAL 
(I$(3)):Ly=0 

160 IFY/4=INT(Y/4)ANDY/400<>INT(Y/400)TH 
ENLY=1 

170 DT=Y-l+((D(M)+D-LY*(A>2)-.5)/(365+LY 
) ) : DT=INT(DT* 10000+ . 5) /lOOOO 
180 PRINT :PRINT"THE DECIMALIZED DATE FOR 
"A$" IS": PRINT :PRINTDT 

Jim's program calculates the decimalized date as of 
twelve noon, hence the -0.5 in line 70. Each hour is 
0.000114 part of a year. Line 160 tests for leap years. The 
DATA statement stores the number of cumulative days 
in months prior to the given date. David Alan Wright 
(New Britain, CT) and James Borden (Carlisle, PA) also 



KIWISOFT PROGRAMS 




dT'^B? 



Mainframe- 
quality 
graphics 
^v^w for the 

Commodore 64 

• Pamt it with "PAINTPIC" 

16 colors. 160x200 screen, CAD $39i95 

• Prinl It vKth "PRINTPIC" 

Compatible with most priniare $44.95 

• Do bolh vwth "CADPIC" 

Combines "PAINTPIC" and "PBINTPIC" $79.95 

• More pictures with PICTUHEDfSKS »nn ne 
Cars and planes , $29.95 C8. 

• See our COMPUTER ART PRINTS ■ 20«24" 

"Room". "Storm". "Holy Lane" (3 for $25) $8.95 63. 

Wort<s with Epson JX-SO and Okimate TO Color Prfntera 

SEND FOR OUR FREE BROCHURE 
Dearer Enquiries Welcome 

Add t2 p.h.. Pay In advuica by chKk. m.o., VISA or MC. In MS add S% sal« lai. 



Programs on diskette from 

^ l\|05IiOFT- ^ 

^ PROGRAMS ^ 

Ace Software, P.O. Box 9332, Columbus, MS 39705 
Phone: 601 •328-9491 



Reader Service No. 121 



sent solutions. Both Jim's and David's programs allow 
the user to enter dates in mm/dd/yr or mm-dd-yr format. 
Several readers tackled Problem M7-2: Printer Sentin- 
el. The solution from Brian J. Wilcox (Coldwater, OH) 
is listed. Since his program is similar in approach to many 
others, I concluded that it must work— on some printers 
at least. It doesn't work on mine. A modified version 
of Brian's program is also shown, which works on my 
Epson MX-80 printer with a serial-to-paraJlel converter. 



REM 



REM SOLUTION TO COMMODARE #17-2 

REM PRINTER SENTINEL 

REM SUGGESTED BY BRIAN J WILCOX 

REM 

10 PRINT CHR$(I47) 
20 GOSUB K/J 

30 PRINT"THE PRINTER IS ON" 
40 END 

100 0PEN4,4:PRINT#4:CL0SE4:IF NOT(ST AND 
-128) THEN RETURN 

110 PRINT" [HOME] PRINTER IS NOT ON LINE" 
:G0T0 100 



1 
2 
3 
4 
5 



REM 



REM SOLUTION TO COMMODARE #17-2 

REM PRINTER SENTINEL 

REM MODIFIED 

REM 

10 PRINT CHR$(147) 
20 GOSUB 100 

30 PRINT"THE PRINTER IS ON" 
40 END 

100 PRINT" [ HOME ]THE PRINTER IS NOT 0N":0 
PEN4,4: PRINT#4 
105 PRINT#4:IF N0T(ST AND -128) THEN 

PRINT "[HOME] ":R 

ETURN 

110 CLOSE 4: PRINT" [HOME] PRINTER IS NOT 
N LINE": GOTO 100 

Even when my printer is off, the computer can sent 
it one message without the STatus variable indicating any 
problem. If the program sends a second message, the 
computer sits and waits forever at the PRJNT# statement. 
Consequently I couldn't display a "Printer Ofr message 
if the printer was off. Instead I had to display the "Print- 
er Is Not On" message before writing to the printer, and 
if the printer was on, the message was quickly erased. 
If the printer is off, the message remains on the screen 
until the printer is turned on (or online). If neither of 
these routines works for your printer, you might compare 
ST with instead of -128. Refer to the STatus descrip- 
tion in the Programmer's Reference Manual. 

Other solutions to this problem came from Ron Giedd 
(Sioux Falls, SD), Clarice A. Baker (Kamloops, BC), 
Jim Speers (Niles, MI), James E. Borden (Carlisle, PA), 
and Lonnie Welch (Independence, MO). 
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Batteries Included Home Pak 34 95 
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The most compact solution to Problem If 17-3: MID$ 
Statement came from Ken Karow (Chicago, IL). Ken in- 
cluded some sample strings for testing the routine. The 
value of N tells how many characters of Y$ are used to 
replace characters of X$ starting at position S of X$. This 
can be a very useful routine. 

1 REM 

2 REM SOLUTION TO COMMODARE #17-3 

3 REM MID$ STATEMENT 

4 REM SUBMITTED BY KEN KAROW 

5 REM 

100 Y$="ABCD":S=4:N=3 

110 X$="1234567" : G0SUB200 : PRINT S,N, 
X$:INPUT"START, NUMBER" ;S,N: GOTO 110 
200 IF N=0 OR N>LEN(Y$) THEN N=LEN(Y$) 
210 X$=LEFT$(LEFT$(X$,S-1)+LEFT$(Y$,N)+M 
ID$(X$,S+N),LEN(X$)) : RETURN 

The most popular Commodore was Problem 017-4: 
Number Speller. Solutions ranged from the reasonably 
short one by Rob Lackey (Albuquerque, NM) hsted below 
to multipage programs. 

1 REM 

2 REM SOLUTION TO COMMODARE #17-4 

3 REM NUMBER SPELLER 

4 REM SUBMITTED BY ROB LACKEY 
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5 REM 

10 DIM D$(30):F0RI=1 TO 30:READ D$(I):NE 

XT 

20 INPUT" [CLEAR] ENTER NUMBER (<10000)";N 

30 A=LEN(STR$(N))-1:0N A GOTO 90,60,50,4 



40 N$=D$(INT(N/1000)+1)+" "+D$(30)+" " 

50 V=(INT(10*(N/1000-INT(N/1000)))+1):IF 

V>1THEN N$=N$+D$(V)+" "+D$(29)+" " 

60 T=N-100*INT(N/100):IF T>19 THEN 80 

70 N$=N$+D$(T+1):G0T0 100 

80 N$=N$+D$(INT(T/10)+19)+" " 

90 N$=N$+D$(N-10*INT(N/10)+1) 

100 PRINT N$:END 

110 DATA "", ONE, TWO, THREE, FOUR, FIVE, SIX 

120 DATA SEVEN, EIGHT, NINE, TEN, ELEVEN 

130 DATA TWELVE, THIRTEEN, FOURTEEN 

140 DATA FIFTEEN, SIXTEEN, SEVENTEEN 

150 DATA EIGHTEEN, NINETEEN, TWENTY 

160 DATA THIRTY, FORTY, FIFTY, SIXTY 

170 DATA SEVENTY, EIGHTY, NINETY, HUNDRED 

180 DATA THOUSAND 

Rob's program handles numbers up to 9999. Other solu- 
tions went up to billions and beyond without much addi- 
tional coding. Perhaps you can modify Rob's program 
to handle even larger numbers. This program might be 
useful for writing checks. I have used this type of pro- 
gram with a speech synthesizer. The speech synthesizer 
pronounces words which are sent to it in PRINT state- 
ments, so multidigit numbers must first be converted into 
text strings to be spoken properly. 

Solutions to these last two problems came from the 
following readers not mentioned earlier: 

Mac Reiier (Mustang, OK) Steve Werkman (Perry,sburg, OH) 

M.B. Lanphear (Cheyenne, WY) Wliliam Manganaro (Ctr. Moriches, KY] 

William Binder (NorthviUe. MI) 
Jerry Anderton (Florence. AL) 
Tony Herrington (Jeffersonville, IN) 
Sheldon C. Wotring (Palmerton. PA) 
Michael J. Strawn (Warren, MI) 
Paul A. Dobransky (Fombell, PA) 
Richard Oberle (Columbus, OH) 
Nancy Balfour (Honolulu, HI) 

Special thanks to Ricardo Chan from the Republic of 
Panama and to Daniel R. Propst from Caracas, Venezu- 
ela for their letters and programs. It is exciting to see 
how fer-reaching Commodore computers and Ahoy! mag- 
azine are. 

One final note. Lonnie Welch (Independence, MO) 
gave one example of a mandatory space in BASIC. This 
statement using the logical OR of variables F and Q re- 
sults in a Syntax Error. Do you see why? 

10 F=0:Q=1:PRINTF0RQ 

Have you come across any other situations where BASIC 
requires a space? If so, let us know. This month's prob- 
lems should keep you busy for a while. See you next 
month. D 



f 



Thomson Fung (San Diego, CA) 
Paul DeLuca (Bradford, MA) 
Ed Taylor (Wauljesha, WI) 
Carlton Burton (Easton. TX) 
R.R. Goings (Washington, IL) 
Darin Jett (Paducah, KY) 
Crile Carvey (Salinas, CA) 
Clay R. Reed (Edwards, CA) 
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AUTO-GEN 



Automated Generation off DATA Statements on the C-64 

^^^^^^^^^^^^BY DAVID A. JONES ^^B^^^^^H^^^ 



Incorporating machine language routines into 
BASIC programs is often used to increase pro- 
gram execution speed. Sometimes the machine 
language is a separate program called and loaded 
by the main BASIC program. This requires two or 
more programs always to be on the disk, and making 
duplicates can become a chore. A common alternative 
is to store the machine language program as a series of 
DATA statements. This is a tedious task if these state- 
ments are typed in by hand. While the routine is under de- 
velopment, or should the need to modify it later arise, one 
simple change could necessitate retyping the entire sequence 
of DATA statements. Some form of automation is in order 
here, and the Auto-Gen utility program is my solution. 

WHAT IT DOES 

Once a machine language program is in memory, usual- 
ly from the output of an assembler, just load and run 
Auto-Gen and the DATA statements will be automatical- 
ly generated and written to disk for you. The program 
prompts you for the addresses of the first and last mem- 
ory locations to be saved. These may be entered in deci- 
mal or, if preceded with a $ (dollar sign), in hexadecimal. 
Next you are asked for the starting BASIC line number. 
(Be sure not to use the same line numbers that are used 
by the main portion of the program under development.) 
You are then asked for the number of data items desired 
per line, and finally the name of the output file you want 
to create. 

While the program is running, it displays the line num- 
ber being generated to inform you of its progress. 

HOW IT WORKS 

A quick review of how a line of a BASIC program is 
stored in the computer will help us understand the task 
to be accomplished. The normal starting location for the 
C-64 is 2049 (S0801). The byte here plus the following 
one make up a link or pointer to the beginning of the 
next line of the program. This link is the "low byte first. 
high byte second" format typical of 6502 machine lan- 
guage. This address can be converted to decimal by mul- 
tiplying the second, or high byte, by 256 and then add- 
ing the first, or low byte, to the product. Conversely, if 
we have the decimal value we can obtain the two bytes 
by dividing by 256. The integer quotient is the high byte, 
and the remainder is the low byte. Our formula will be 
HB=INT(NL/256): LB=NL-(INT(NL/256) ), where 
HB is the high byte, LB is the low byte, and NL is the 
address of the start of the next line. 



The next two locations hold the number of the current 
program line. Again, the number is stored in low byte- 
high byte format and the same formula is used to con- 
vert to and from decimal. 

The rest of the line contains the BASIC program state- 
ments. Each BASIC keyword is stored as a token, i.e., 
reduced to a one byte symbol. This has a twofold pur- 
pose. One is to reduce memory requirements and the sec- 
ond is to simplify interpretation during program execu- 
tion. For our needs, the token for "DATA" is 131 in deci- 
mal (S83 in hex). Spaces, commas, and literals (num- 
bers or letters representing their own value as opposed 
to variables) are stored in their ASCII form. The num- 
bers through 9 are 48 through 57 respectively. A com- 
ma is 44 and a space is 32. The end of the line is indica- 
ted with a zero Isyte, and the last line of the program is 
terminated with three consecutive zero bytes. 

With this limited knowledge we can construct our own 
BASIC "DATA" statements. Since one numeric data item 
can have a maximum value of 255, we will allocate one 
memory location for each digit or three locations per 
item. Each item must be separated by a comma, so add 
one per item except for the last one on a line. 

Include in our tally 2 for the link to the next line, 2 
for the line number, 1 for the DATA token, and 1 for 
the terminator, and we have the following formula. 1+1+ 
1-I-4*ND-H = the number of memory locations required 
to store one program line. ND is equal to the number 
of data items desired on each line. Add this number to 
the address of the beginning of the current line and we 
have the address of the start of the following line. NL 
will be the variable in our prc>gram that holds this address. 

If we want to increment the line number by 10 we sim- 
ply add 10 to the previous tine number. LN is the vari- 
able here. When we reach the end of the program add 
two zero bytes to the one that terminates the last line and 
our work is almost done. 

A program stored on disk or tape has as its first two 
bytes an address indicating where the program should 
be loaded. This is low byte-high byte format again and 
for our purposes the address is a constant. The C-64 us- 
es 2049 (S0801) and the VIC 20 1025 ($0401). 

That's about all we need to know to create a file of 
DATA statements directly on disk. 

We assemble and load our machine language file into 
memory, note the first and last memory locations used, 
and we're ready to begin. 

A loop that starts with the first data location and in- 
crements by the number of data items per line until the 
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Confused by Mail Order Ads??? 

Price is not the only concern. You should ask . . . 

1 . Do you have Ihe advertised product in stock ? 

2. If Ihe product is defective wAo handles the Mitarranty? 

3. What is the total price delivered to my door? 
For the straight answers to these 
and all your questions, call us! 



NEWC-128!!! 

Call for pricing, 
availability & software. 




Send Self Address Stamped Business Envelope for 
Complete Product List!!! C-64 Hardware' sHII available. Call! 

C-128 HARDWARE 

1700 128K Expander 1571 Drive 350K DS/DD 

1750 3B4K Expander 1670 Auto Modem. . 1200 Baud 

1902 Color Monitor U" RGB/Composite. . . 80/40 Column Display 

Tekntka MJ22 Same Spccsas 1902 $289 

1350 Mouse Eases Computer Input 

C-128 SOFTWARE 

JANE Integrated Software for use with 1350 

Perfect Catc/Writer/Filer, Powerful CP/M Business Software 

PRINT ERS 

' iiiiiiii[| | iiir 




STAR SGIO 

Tiiinii!iiiiiiiii[iiiiirn 



Powertype Daisywheel 18 CPS Okidata 182 Call 

withCardco B $354 MW-350 Interface Call 

DPS 1101 Daisywheel RitemanC+ Call 

Direct Connect to C64 Call 

MONITORS 

Zenith ZVMGrWmh , $89/99 TeknikaMJlO $189 

MODEMS 

Commodore 1660 ... . $59 Westridgc 6420 Call 

Mighty Mo Call VlPTerminal Call 

CompuServe Starter Kit & Vidtex Both (or 39.95 

ACCESSORIES 

Com Cool Drive Fan $49 Power Pak $27 

Com Cool Plus w/ surge ... 69 Surge Protector 4 Plug ... 25 

• SPECIAL • Xidex Diskettes SS/DD $10.95 • SPECIAL • 

BLACK NAUGAHYDE COVERS 

c-128 or 1571 Drive ca. $ 7 

C-64 or 1541 Drive .. . ea. $5 1702 Monitor 10 

MSD Drives 1/2 5/6 1525/MPS801 7 

Gemini lOX 9 1526/MPS802 8 

DATABASE MANAGERS 

The Consultant $59 PFS:File $59 

Super Base 64 49 PFS;Report 49 

WORD PROCESSORS 

Paper cnp/& speller $55/69 Easy Script $35 

Fleet System2 Call Easy Spell 17 

MOST ORDERS SHIPPED WITHIN « HOURS' Advtrlistd pncts jrt lor bank chfck or irioarf ofdct 
VISA'.MC oidm idd 3 5% NO COD ORDERS Ptfwnal or company chtcks delay mdns 21 days *)l alts 
are final - deircttve nwrctiandisc exchajigfd loi same pTodud Mily Call for return aulhoriulioo niinitirr All 
relumed piodudi arc suhjecl to a restocking lee utdeM they arc dcJective and relumed for ejtad eichan|e. In 
Ihe continental U S add 3% lot ihrppfnj |J2 50 min.) Please call fo! ihipptn; on monllors. Ohio residents add 
S.S% sales tai Prices k aviiUtiililY subject lo change 
HOURS: MONDAY FRIDAY 1 I AM to 7 PM • SATURDAY 10 AM lo 5 PM 



ORDER 
LINE: 

INFORMATION & IN OHIO 2I6/758-00O9 



800-638-2617 




1301 BOARDMAN POLAND ROAD POLAND, OHIO 44514 

Read&r Service No, 133 
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last location is reached will be the main loop of our util- 
ity. This loop keeps track of the start locations of each 
line and the line numbers themselves. It writes the first 
part of each line to disk up to and including the token 
for DATA and additionally writes the line number to the 
screen to show the user the progress of the program. 

Inside the main loop a smaller loop, incrementing by 
one up to the number of items per line, creates each item 
for the DATA statements. Internal to this loop is a third 
loop to step through the conversion of data items into 
ASCII characters and write them to disk. 

Last is a counter to determine where to insert com- 
mas. We don't want a comma after the last item on a line. 

Prior to entering the main loop of the program, the 
disk file is opened and the program load address is writ- 
ten. Each iteration through the loop writes a program 
line and at the end of the loop the program terminator 
is written and the file is closed. 

Two subroutines are used. One does the error checking 
on the disk file and the second is to allow hexadecimal 
inputs for the first and last memory locations to be saved. 
Since the main function of this program will be saving 
machine language routines, a hexadecimal input will prob- 
ably be the norm. Hexadecimal input numbers must be pre- 
ceded with a dollar sign to distinguish them from decimal. 

Once the file is on disk it can be edited just like any 
other, or appended to an existing file. 

Existing programs that have an unequal number of data 
items per line or that for some other reason need to be 
reformatted can also benefit from this program. Simply 
load the old program and let it POKE in the data. Then 
load Auto-Gen and let it do its work. Finally reload the 
original program, delete the old DATA statements, and 
append the new. The result is a neatly formatted pro- 
gram with an equal number of DATA items on each line. 

VARIATIONS 

I tike my program listings to be neatly formatted and 
easy to read. Consequently, I have no reservations about 
including spaces and blank lines to achieve this end. Lines 
1560, 1580, and 1470 in the program would be the ones 
to change if you absolutely must have files without lead- 
ing spaces on data items less than three digits. 

The choice of the number of data items on each line 
is arbitrary, but a few points should be considered. 10 
is a nice round number and helps us count items easily. 
16 is a good choice when working with machine language 
as it allows quick conversion to hexadecimal. 17 fits the 
maximum number of a C-64 program line and 19 does 
the same for a VIC 20. 

Incidentally, the sample output of this program is the 
first part of the DOS Wedge 5.1, It was created by sav- 
ing from 52224 to 52273. To store the complete wedge 
use 53081 as the end address. Don't be surprised at the 
length of the resulting program, though. Using DATA 
statements to store machine language programs is most 
inefficient. D SEE PROGRAM LISTING ON PAGE 89 



DRAGON TYPE 



For the C-64 

By Bob Spirko 



Computer programming offers the frustrat- 
ing paradox of not lending to one's typing 
skills. After months or even years of pro- 
gramming, many of us still cannot tyjje 
with any speed. This is especially apparent 
in telecommunications, where each party takes turns plod- 
ding letters on the screen. And when it comes to word 
processing, we suffer the same inertia. 

Fed up with my own keyboard stioiggles, 1 went and 
bought a typing-drill program. This was a neat setup 
where you shot down a flying saucer by correctly typing 
in words. After each session, your speed, accuracy, and 
score were given. This, along with color and sound, 
helped to assuage the drudgery of practice. And the drills 
worked. In a few weeks I was typing faster and more 
accurately. But in time, I became bored with typing the 
same words. Besides, wouldn't it be better to type a va- 
riety of words? Unfortunately, I could not change the 
words, since the program was copy-protected. 

Keeping this in mind I wrote my own typing-drill pro- 
gram. It includes the best features of the other, but it 
allows you to change the words. This provides you with 
an unlimited number of skill levels. If you find the words 
that I chose too difficult or too easy to type, or you sim- 
ply become weary of them, replace them with your own. 
With Dragon Type you can also practice typing symbols: 
it accepts ASCII codes 32 to 90. 

Nor did I stop there, I replaced the flying saucer and 
laser gun with a dragon. Using the magic of machine 
language, I brought the little beast to life so that it could 
run across the screen and eat words. How well he's fed, 
though, is up to you, for he can only eat those letters 
that have been correctly typed. 

Dragon Type consists of two programs: the first is in 
machine language and the second in BASIC. Type In and 
SAVE both programs. Now RUN the first program. After 
the machine language is LOADed into memory, the sec- 
ond program is automatically LOADed and RUN. Then 
the fun begins. 

First, the dragon does a quick warm-up; then you're 
asked to choose a level. There are three animation speeds. 
While a novice can use the fast level, he may feel intim- 
idated by a frantically paced sprite. On the other hand, 
a good typist might find that a slow sprite cannot keep 
up with his speed. Once your choice is selected, words 
fill the screen. 
Now enters the dragon. He emerges from the left side 



of the screen, races to the first word, and stops. Poised 
over the first letter, he snaps his jaws wide open and awaits 
your command. Tap in that letter, and the dragon gulps 
it down and moves on to the next letter. Continue typing 
and the letters disappear as the voracious creature munch- 
es them (he eats spaces, too). Press the wrong key and 
a beep is sounded, signaling an incorrect entry. (You can 
abort the meal by pressing f7.) At the end of each line, 
he speeds off the screen only to reappear on the next 
line, ready for another course. Once your dragon con- 
sumes all the words, the screen displays your speed and 
the number of typing errors. Also shown is your score 
and your highest score; these reflect both your speed and 
accuracy. To go another round, just press the space bar. 
Pressing RETURN ends the program. D 

SEE PROGRAM LISTING ON PAGE 88 



PRINTER INTERFACES 

G-Wiz CALL 

Cardco B $49.95 

Turbo Print $79.95 

MODEMS 

Westridge Auto- 
modem $69.95 

Modem 300 (1660) $79.95 

MPP 1064 C64 . . . S79,95 

Total Telecommuni- 
cation $39.95 

PRINTERS 

Epson Homewriter 

with Interface . $299.95 
Commodore 803 . $179.95 
(tractor feed 

option) $ 29.95 

Commodore DPS 1101 
(Daisy wheel) . . . $299.95 

StarSG-10 $224.95 

Panasonic 1091 . $299.95 

Citizen MSP-10 . . S329.95 

G.E. Printer .,..$219.55 

MONrroRS 

C128 CALL 



1702 Color $199.95 

Gorilta (green) .. $ 79.95 
Gorilla (amber) . . $ 89.95 
Sakata Color .... $179.95 

SOFTWARE 

Word Processors 
Paper Clip 

(w/spell) $79.95 

Word Pro 3 -I- (64) $39.95 

Write Now $34.95 

Databases 

Superbase64 .... $69.95 
The Consultant . .. $74,95 
Spread Sheets 

Cal. Kit $39.95 

Calc Result $69,95 

Utility Software 

Print Shop $29,95 

Flopptclene Head 

Cleaner $12,95 

Mach 5 $24,95 

Please call for any special 

requests! 



COMPUTER 
WAREHOUSE 

(in FL) 305-274-3680; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

t3 mtfWTHjm (xder, v kU 3S lor shipping and hsrxJhrigcrtftrges Ad prices rel^l 3% ClOh d>SC{Mnt 
C««dil CMtOotdtn ahouM add 3S>. Pr»c«s subt^ci to change vtnlhout ncriics 



Reader Seivtce No. t08 
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FILE LOCK ^ 

Scratchproof ing for Your C-64 Programs 

BY DON LEWIS 




ow many times have you scratched a file, 
and then immediately regretted it? If you're 
like me, ril bet a lot of times. Lately there 
have been several UNSCRATCH utilities 
published, but that's a pound of cure. 
What's really needed is an ounce of prevention and that's 
where File Lock comes in. 

File Lock provides a scratchproof feature for the 1541. 
Built into the DOS, but kept secret by Commodore, the 
1541 has the ability to lock out the scratch command on 
a file by file basis. This LOCK/UNLOCK is not sup- 
ported by any built-in commands in the 1541, but is avail- 
able through a utility like File Lock. 
File Lock has a very convenient user interface. When 



MERLIN 64 

TH E BEST MACRO ASS EM BLER FOR TH E COMMO DORE 64 

Easy to use for the beginner or professional, Merlin 64 is 

an extremely powerful macro assembler. 

|ust a few of its features include: 

• Fast assembly times 

• Word processor like editor 

• Conditional assemblies. 
Optional assembly to disk 

• Includes Sourceror. an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

• Macro library of common 
op>erations 

• Cross Ref. utility program 

• 80 column display 
compatibility 






"This Is the best assembler I've seen for the Commodore 64. . . " 
Wm- Sanders /Assembly Language for Kids 

". . .an outstanding value. . . I can't Imagine how It could 

he better." 
rf* ^ Q ^ C 5!« C Peterson /AHOYI Magazine 

fcP^T ^ * ^ «J -Plus S3.00SKIpfring.CA Res iicid 6% Sales Tm. 

Ask your local dealer for details, or just write or call: 

' PUBLlSHIMC'inC 
P.O. Box 582 • Santee, CA 92071 •Telephone: 619/562-3221 
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you run Fde Lock, the program prompts you to insert 
a disk. It then reads the directory of file names from the 
disk. Two large boxes appear on the screen with the file 
names in them. Below the boxes is the command line'. 
The command line has the following commands avail- 
able: 

SCRATCH -scratch ffles 

LOCK — scratchproof files 

UNLOCK - remove lock 

PAGE — advance to next screen of files 

BOOT - restart program 

QUIT - exit to BASIC (READY) 

Choose the command you want by typing the first let- 
ter of the command word, for example, L for LOCK. 
After you have made your choice, a small arrow appears 
on the screen next to the first file name. Files are se- 
lected by moving this arrow around the screen with the 
cursor keys, HOME key, and RETURN key. Files selec- 
ted are highlighted in reverse video. Hitting the left ar- 
row key will cancel all the files selected and return you 
to the beginning of the program. 

After selecting the files, operation is started hy hitting 
the first letter of the desired operation: S for scratch, L 
for lock, U for unlock. 

File Lock works by modifying a bit in the file type byte 
in the directory entry for that file. (See page 67 of the 
1541 manual.) As an example, a PRG file has a file type 
of $82(1000 0010) if it is not locked. When locked, bit 
6 is set, yielding $C2(1100 0010). 

Locked files are marked in the directory listing by a 
< symbol next to the file name. Once a file has been 
locked, the 1541 will send the error message 'FILE NOT 
FOUND' if an attempt is made to scratch the file. 

File Lock tends to be a bit sluggish in its operation since 
it is a BASIC program. However, when it is compiled 
with a BASIC compiler such as Blitzl, its performance 
is greatly improved. If you like File Lock, I would rec- 
ommend that you Blitz', it for the best performance. 

As with my other program in this issue (Fastnew, p. 
33), I wish to acknowledge the assistance of my col- 
leagues at R. J. Brachman Associates, Inc. (Havertown, 
PA) in developing this program. Please address any cor- 
respondence to D. Lewis, P.O. Box 521, Folsom, PA 
19033. Include a SASE if you wish a reply. D 

SEE PROGRAM LISTING ON PAGE 93 
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MANY WAYS TO SAY 
I LOVE YOU 

CBS Software 
Commodore 64 
Disk; $29.95 

Fred Rogers has used music and 
conversation to teach children to val- 
ue themselves and their families for 
almost 18 years on Mister Rogers' 
Neighborhood, the longest running 
program on public television. In an 
effort to expand the relationship be- 
tween parents and children, Many 
Wiys to Say I Love }bu gives children 
an electronic forum to creatively dis- 
play their affections. 

All the songs in the program are 
easily recognized, either popular folk 
tunes or regulars from the show. My 
two year old had no problem singing 
along with Won't You Be My Neigh- 
bor and It's Such a Good Feeling. Be- 
fore long she had picked up Twinkle, 
Tmnkle, Little Star and Frtre Jacques. 

Ah! But what are the songs for, you 
ask? Many Uiiys to Say I Love You 
helps a child design and deliver an 
electronic greeting card, complete 
with moving pictures and music. The 
child can pick a message like "I think 
you're special" to appear at the top 
of the card type in text on the bot- 
tom. In this way, each card can be 
personalized. 

The graphics are great. Choice of 
"stickers" includes animals, trees, 
flowers, moon, stars, houses, a cas- 
tle, and residents of Mister Rogers' 
Neighborhood (including the trolley, 
Mr. McFeeley, and several characters 





Child picks background, border, more. 
READER SERVICE NO. 102 



Lets tykes design and personaiizie (but 
not print) electronic greeting cards. 

from the land of make-believe). All 
the stickers will perform some action 
while the card is being "delivered." 
Before choosing pictures to illustrate 
the card, a background and a border 
design can be chosen. 

There are two levels of difficulty: 
a full frills card or a simplified one 
with just background, stickers, and 
music. The simplified version is good 
for youngsters who have not yet 
learned to read. 

The program does have an option 
to save cards to disk. Up to 24 cards 
can be saved on your master disk; 
however, I wouldn't take the chance. 
CBS takes pains to explain the buy- 
er's rights in the program, and these 
rights include making a backup. 

While Fm skeptical as to whether 
this weU-designed program will open 
any heartfelt chats between parents or 
children, it does offer a chance for 
closer interaction. Any parent who 
buys it should be prepared to spend 
time listening to cards. There is no 
printout option, so you won't be able 
to send greetings to fi-iends and fem- 
ily around the country. 

If nothing else, my daughter has 
learned to sing two new songs. And 
the youngster I borrowed fiiom down- 
stairs showed her mom that compu- 
ters can be used for something be- 



sides shooting aliens and learning to 
add and subtract. 

CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). -Cheryl Peterson 

ON-FIELD FOOTBALL 

Gamestar 
Commodore 64 
Disk; $29.95 

The popularity of football has lev- 
eled off on television, but there's a 
real boom underway in home com- 
puting. On-Held Football is only one 
of three pigskin programs scheduled 
for release in time for a Ml kickoff, 
and at least one more is due early in 
1986. 

Unlike the other newcomers, 
which stress authenticity, On-Field 
emphasizes freewheeling fun. The 
media hype of the Super Bowl is 
light-years away from this brand of 
football. 

The inspiration for designers John 
Fitzpatrick and Scott Orr is not the 
National Football League, but rath- 
er the sandlot and pickup football 
games which fill youngsters' fell and 
winter afternoons. This is four- 
against-four, not big-time football. 

Don't expect to be able to mimic 
all the latest wrinkles in pro and col- 
lege football. The coaches in this one- 
or two-player contest can choose 
from a variety of offensive and de- 
fensive moves, but the true simula- 
tions like Super Bowl Sunday (Ava- 
lon Hill Game Company) and The 
World's Greatest Football Game 
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Players have in^vidualiz^d strengths. 
READER SERVICE NO. 103 
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Lookfo 
or mas 

MASTE 

731161 

Reader St 



(ONIC! 



BRINGS YOU BRAND NEW 
UNBELIEVABLE 

COMMODORE 64 DISKS 



!! EDUCATIONAL ■ 




^€d^0t PRICES ! 

Look for MASTERTRONIC programs at your local computer dealer 

or moss merctiont. For more information write or call (301) 695-8877 



MASTERTRONIC INTERNATIONAL INC. 

7311B Grove Road, Frederick, Maryland 21701 

Reader Service No. 145 
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No. 


Company 


No. 


M 


Ate Software 


121 


8 


Alphacom 


135 


■» 


Ahoft 


115 


26 


APCAD 


111 


60 


Big Byles 


133 


U 


Broderbund Soflwara 


150 


54 


Cambria 


109 


63 


CBS SonHnre 


102 


50 


Central PtoinI Soflwan;. Inc. 


125 


31 


Comal llseni Group. USA, Ud. 


- 


47 


Commodore Business Machines 


101 


7 


Commodore Business Machines 


104 


39 


Computer Management Corp, 


117 


«1 


Computer Warehouse 


108 


30 


Cmm, Inc. 


124 


19 


Custom Prngramming Group, Inc. 


128 


58 


CVC Online 


lU 


29 


Digital Vbion, Inc. 


126 


67 


Digital Vision, Inc. 


HIS 


U 


Dunlap Boat Mfg. 


106 


57 


Floppy House 


143 


15 


Full Circle Software 


130 


63 


Gamestar 


i03 


75 


Genesis Computer Corp. 


134 


17 


Hesware 


132 


16 


Inlegrated-Siiftn'are Systems 


142 


4 


Jason- Ranheim 


151 


41 


Jason-Ranheim 


156 


6445 


Maslertrnnic International Inc. 
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(Epyx) boast significantly heftier 
playbobks. 

Joystick control makes On-Field 
Football exceptionally easy to learn 
and play. The coaches create each 
play by following a series of onscreen 
prompts. On offense, the gamer 
pushes the joystick forward, back, 
left, or right to select one of five pos- 
sible formations: "F right (run), T 
left, split left (pass), slot right (pass), 
and kick. Then the offensive coach 
individually programs the video ath- 
letes who are going to run with the 
ball or catch it. Finally, the compu- 
terist can revise the play at the line 
of scrimmage by calling an audible. 
Pressing the action button when 
prompted to do so changes the in- 
structions for the halfback or the 
wide receiver, depending on whether 
it is, respectively, a running or pass- 
ing play. 

Coaches issue ciders to the defense 
in the same way. The display prompts 
the gamer to choose separate options 
for the rush and secondary. The de- 
fense can call an audible to change 
the pass coverage at the last second. 

Once both teams complete play-se- 
lection, the action button snaps the 
ball to start the action phase. The of- 
fensive coach controls the passer with 
the joystick and empltays a simple sys- 
tem to hand off the ball on running 
plays or choose between the two eli- 
gible receivers when putting the pig- 
skin into the air. The defensive coach 
guides the free safety with the stick 
and can even try to blitz the quarter- 
back for a big loss. 

The players are more than Just an- 
imated cursors in On-Field Football. 
As in the same pubhsher's On-Court 
Tennis, the coaches pick individual 
players from a roster of possibilities 
prior to the opening whistle. For in- 
stance, there's a choice between the 
slick-passing "Pinpoint" Pepper and 
the more mobile "Scrambles" Smith. 
The teams can bring in replacements 
for tired players between the thiid and 
fourth quarters. It's too bad that the 
same concept wasn't extended to in- 
clude members of the defense, who 
remain anonymous. This makes the 
game much less involving when the 
other team has the ball. 

The pl^field is oriented so that the 



team with the ball always moves up 
the screen against defenders protect- 
ing the goal line at the top. When pos- 
session changes, the teams swap places. 

Gamers traditionally favor football 
programs in which the action moves 
side-to-side, but this attempt is more 
successful than most previous tries. 
The traditional complaint against ver- 
tical gridirons is that they don't pro- 
vide enough room for passers, run- 
ners, and receivers to maneuver. The 
designers of On-Field Football have 
made the players as small (relative to 
the size of the field) as practical to 
minimize this. Most computerists will 
still prefer horizontal football fields, 
but the overall effect isn't bad. 

The most useful of a batch of spe- 
cial features lets players choose be- 
tween regular 15-minute quarters and 
shorter 5-minute ones. The program 
also allows each coach to call three 
time-outs during the game. It is also 
possible to "^use" play entirely when 
the phone rings or nature calls. 

Like other Gamestar titles, On- 
Field Football takes practice to mas- 
ter. (Not, however, quite as much as 
Starbowl Football, also by Gamestar.) 
Computer sports fans who want an 
action-oriented football contest, rath- 
er than one which relies on pure strat- 
egy, are the most likely to enjoy this 
clever game. 

Gamestar, Inc., 1302 State Street, 
Santa Barbara, CA 93101 (phone: 
805-963-3487). -Amie Katz 

COMPUTEREYES 

Digital Vision Inc. 
Commodore 64 
Hardware, disk; $129.95 

There is an old saying that a word 
is worth a millipicture. Nothing 
brings this truth home more clearly 







than working with digitized images. 
On the Commodore 64 a word is ac- 
tually worth even less, at most an 
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eighth of a millipicture. If color is 
considered, the fraction can be as 
small as one tenth. Of course, the 
words we are talking about are eight 
bits or one byte each. Nevertheless, 
the veracity of the adage is brought 
home with a vengeance. 

The Coraputereyes Video Acquisi- 
tion system adds vision, without fore- 
sight, to the ever-growing list of pos- 
sible applications for the C-64. The 
system will allow you to capture those 
fleeting images and translate them 
into the 8-10,000 bytes needed to de- 
scribe a bit mapped image. 

The physical appearance of the 
package belies its impressive perfor- 
mance. Computereyes is an excellent 
example of what a clever design with 
good programming can accomplish 
when coupled with the capabilities of 
the 64. 

In keeping with this introduction 
we have included several screen shots 
which illustrate the capabilities of the 
system. The Chinese plates show how 
Wayne Schmidt used the information 
contained in a digitized DOODLE! 
image. The color and fine detailing 
were all added afterwards. We should 
all be familiar with the original on 
which the Washington head on page 
68 is based. The young lady below 
it is the cover model from another of 
this company's publications. 

THE HARDWARE 

The Computereyes module is a 
small black box that plugs into the 
user port. It serves as an interface be- 
tween any standard video signal and 
the computer. Suitable sources are 
video cameras, VCR's, video disc 
players, or TV's with video outputs. 
The video signal is fed to a standard 




Color and fine detail were added 

Oefi} to a digiti^jid DOODLE! image. 
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RCA type jack on the back of the 
module. One of the two controls al- 
lows for the fine tuning or synchron- 
ization to the video source. The ad- 
justment is non-critical and easily ac- 
complished with the supporting soft- 
ware. You will most likely find that 
the setting will not change for a par- 
ticular video source. 

The other control compensates for 
the relative strength or brightness of 
the signal. The brightness control has 
a direct effect on the appearance of 
the acquired image. We found the set- 
ting of this control to be critical but 
manageable. Small adjustments of the 
brightness control have a significant 
impact on the final image. 

THE VIDEO SIGNAL 

The images displayed on a TV are 
redrawn 30 times a second. Each in- 
dividual image consists of 512 hori- 
zontal lines. These are sequentially 
drawn from top to bottom of the pic- 
ture tube. Creating an image in this 
manner is called scanning. Each im- 
age or screen is built up from two 
passes of 256 lines each. The first 
pass fills the entire screen; the sec- 
ond fills in the gaps between the lines 
of the first scan. This arrangement is 
called interleaving. It follows that the 
ideal TV picture would be able to re- 
solve 512 discrete verticle points. 
However, in practice this is not so. 

The capabilities of most TV's are 
about half of the theoretical maxi- 
mum. The newer "monitor" receivers 
are somewhat better, on the order of 
350 lines. The Commodore 1701 and 
1702 monitors fall into this class. 
Home VCR's are able to resolve about 
260 lines at this time, although bet- 
ter equipment is in the works. La- 
serdisc players generally exceed the 
resolving capabilities of the best TV 
sets. 

SELECTING A VIDEO SOURCE 

Since the Computereyes module 
merely acts as an interface, you will 
have to provide it with a standard vid- 
eo signal. If you already have a home 
video system, with a color camera, 
then you're all set. In comparison to 
the overall cost of a complete video 
system, the $130 price of this pack- 
age is almost too good to pass up. If 



you do not have a home video system. 
a black and white video camera is 
your best bet. These are available as 
no frills units for use with closed cir- 
cuit television security systems. The 
Ikegami model ITC-40 Surveillance 
camera is a high quality unit of this 
type. It is available as an option from 
Digital Vision. The package price of 
camera and module is $350. Bear in 
mind that surveillance cameras are 
truly no frills devices, lacking any 
type of view finder or sound pickup. 

A home VCR is a less than ideal 
video source for this application. The 
process of acquiring a detailed im- 
age takes quite a few seconds and 
several tries as the brightness is fine 
tuned. A stationary image must be 
provided for these several minutes. 
The freeze frame mode of a VCR 
provides less resolution than normal 
operation. Also, the VCR will auto- 
matically start running after five min- 
utes or so to prevent the wearing of 
a hole through the tape. A laserdisc 
player should make a very good 
source. These devices provide a very 
high quality single frame image for 
unlimited intervals. 

A color video camera will work 
well. You may want to use its associ- 
ated VCR as an intermediary device 
to avoid the cost of an additional ca- 
ble and adapter. We did all of our 
tests with the Ikegami camera. 

A BIT OF A PICTURE 

The Commodore 64 has the ability 
to create a graphic image composed 
of 320 horizontal dots by 200 verti- 
cal dots. This is a bit-mapped image, 
which means that each one of these 
64,000 dots or pixels corresponds to 
a single bit of computer memory. 
This is where we get the 8.000 bytes 
or words mentioned above. A total of 
16 colors may also be displayed. The 
color information requires another 
1,000 bytes of memory. 

An alternate display mode permits 
the display of only 160 horizontal dots 
with the same number of vertical dots. 
The tradeoff for this multicolor mode 
is increased flexibility in the display 
of color. The memory requirements 
of the bit map for this mode are the 
same as above. The increased color 
capabilities call for 2,000 bytes of 
AHOY! 67 



storage. (For additional discussion of 
Commodore 64 bit mapped graphics, 
see the October and November 1984 
issues of Ahoy!) 

As we can see, a C-64 bit map 
would seem to contain as much infor- 
mation as a TV picture. The reason 
it cannot create a televisionUke im- 
age is that the 64 is limited to a total 
of 16 possible shades or colors. A 
television image is capable of thou- 
sands of brightness and color com- 
binations. Nevertheless, impressive 
results can be obtained, some exam- 
ples of which can be found in our An 
Gallery (see pages 34 and 35). 

A number of software packages al- 
low the user to draw or create graph- 
ic images on the 64, including Flexi- 
draw from Inkwell Systems. 
DOODLE! from City Software, and 
Koala Painter from Koala Technol- 
ogies. Detailed reviews of these and 
a number of other packages were pre- 
sented with the discussions on bit 
mapped graphics previously men- 
tioned. These packages ane supported 
by the Computereyes software. 

GEniNG THE PICTURE 

The Computereyes software allows 
you to capture a video image as a 
Commodore bit map. Three diffet^ent 
bit map formats are directly sup- 
ported. The optional software for use 
with the above graphics packages 
adds seven more formats. We will go 
into these in some detail. 

The first step is to set the synchron- 
ization control. A built-in routine 




George digitized 
with Koala sup- 
port software, 
in low contrast 
format. With 
multicolor pack- 
ages like Koala, 
compatible image 
modes are limi- 
ted to low and 
high contrast 
capture, with up 
to four gray lev- 
els in each char- 
acter cell. 



simplifies the process to just a few 
seconds. Once set, the sync control 
is left alone. The second step is to set 
the brightness control. A special dis- 
play mode performs a continuously 
visible image scan every six seconds. 
We found that by setting the bright- 
ness control so that only the bright- 
est highlights showed resulted in the 
best starting setting for subsequent 
operations. The operation of the 
package was very sensitive to the set- 
ting of the brightness control. Al- 
though the adjustment was manage- 
able, some sort of fine tuning would 
have been welcome. The controls 
also lacked pointers or markings, a 
minor inconvenience. It would be a 
good idea to mark the position of the 
controls after the initial setup. This 
would eliminate the need for these 
preliminary adjustments for each sub- 
sequent use. 
The package is menu-driven, with 
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magazine cover 
digitized with 
DOODLE! high 
contrast cap- 
ture, resulting 
in a bit map 
image with 
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levels -white, 
gray, and black 
-with maximum 
resolution of 320 
X 200 pixels and 
two levels possi- 
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character cell. 
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built-in help screens. It is a complete 
image capture utility which allows for 
the LOADing, SAVEing, and view- 
ing of the captured images. The disk 
directory may be viewed without exit- 
ing the program; however, disk com- 
mands, such as for formatting a disk, 
cannot be issued. The programs are 
written in BASIC with the digitizer 
parts in machine language. Since no 
copy protection is used, it should be 
fairly ea,sy to add whatever frills you 
may want. The starter package makes 
full use of the high resolution bit map. 

The quickest way to digitize an im- 
age is to use "Normal Capture." This 
produces a high contrast black and 
white image. The original picture is 
scanned once with all parts above a 
certain brightness level assigned to 
white. Maximum resolution is ob- 
tained at the expense of any tonal 
gradation. This mode is relatively 
fast, completing a scan in less than 
seven seconds. 

Somewhat slower but generally 
more pleasing is the "4-Level Cap- 
ture." The original image is scanned 
four times at different exposure lev- 
els. Each level is assigned to a shade 
of gray by turning on different num- 
bers of pixels. The tradeoff is loss of 
resolution, as four pixels are required 
for each part of the image. A 4-Level 
scan requires about 26 seconds. 

The "S-Level Capture" is similar to 
the above. Eight synthesized grey lev- 
els are formed with a corresponding 
reduction in image resolution. Cap- 
ture time is a bit over 50 seconds. 

OPTIONAL SOFTWARE 

The basic software generates a pure 
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8K bit map without any color infor- 
mation. If you have the Flexidraw 
graphics package, any of the above 
formats can be loaded in and worked 
on. Good results will also be obtained 
with the Flexidraw print utility, since 
the.se are pure bit map images. For 
use with other packages. Digital Vi- 
sion offers Compatibility System 
Software in support of Koala, 
DOODLE!, Flexidraw, and The Print 
Shop. Each disk tailors the captured 
image to the specific package. 

For the hi-res packages, namely 
Flexidraw and DOODLE!, the above- 
mentioned capture modes are sup- 
ported. Two additional modes are 
also provided. The "Low Contrast 
Capture" makes use of the C-64 color 
capabilities to generate a true five lev- 
el gray scale composed of the three 
grays, black, and white. In this mode 
the full bit map resolution is pre- 
served while still allowing for image 
shading. Since the high resolution bit 
map is used, only two gr^ levels will 
appear in any 8x8 pixel character 
cell. The "High Contrast Capture" is 
similar to the above, except every 
other gray level is used. 

Since Koala is a muhicolor pack- 
age, the compatible image modes are 
limited to the Low Contrast and High 
Contrast captures. The difference is 
that finer gray scale resolution is ob- 
tained, since multicolor mode allows 
up to four colors in each character 
cell. As a result the Koala images are 
apt to be the most pleasing for many 
subjects, even with the reduced reso- 
lution of the multicolor bit map. 

The latest addition is the Print 
Shop support package (see the review 
of the Print Shop in the July '85 
issue). This will create images for 
both the Kaleidoscope and the 
Graphics Editor utilities. The support 
for the latter is very well done. A 
large portion of a full image is 
marked by a movable mask. Simply 
use the cursor keys to select the por- 
tion you want. The software then 
blocks the image into the reduced de- 
tail for the graphics editor. When se- 
lecting a source image for conversion, 
keep in mind the 88 by 52 dot resolu- 
tion of the Graphics Editor (44 by 45 
dots for 1525 printers). Images with 
large solid areas will work the best. 



The Print Shop support package 
can be used to convert any 8K hi-res 
bit map image. The ones generated 
by Flexidraw, without color, are per- 
fectly suitable. Image files created by 
the DOODLE! package will have to 
be stripped of their leading kilobyte 
of color data. To do this you simply 
LOAD "DDPICrURE"8,l; where 
"DDPICTURE" is the file you want 
to convert. Next POKE 45,0: POKE 
46,96. Finally SAVE "PICrURE",8; 
where "PICTURE" is the name of the 
file you want to create. The result- 
ing 33 block disk file will be a pure 
bit map, without the color informa- 
fion, ready for processing by the 
Computereyes Print Shop support 
package. 

PRINTING THE PICTURE 

The built-in print utilities of both 
DOODLE! and Flexidraw will do a 
fine job with the first three image for- 
mats. Strange results are likely if you 
try to print either the Low or High 
Contrast images. These images de- 
pend on the color information to pro- 



duce the different shades of gray. The 
Kbala screen dump utility will do a 
good job with either of the Kxita for- 
mats. The Graphic Printer package 
by Michael Keryan takes into account 
the color information of a high-reso- 
lution bit mapped image. It is de- 
signed to work with the high density 
print modes of the Star Micronics 
Gemini series of printers or the Ep- 
son graphics-capable printers. Con- 
tact the Computerist, Inc., P.O. Box 
6502, Chelmsfoid, MA 01824 (phone: 
617-256-3649) for information about 
this package. 

For a real personal touch, try trans- 
ferring a digitized image to a T-shirt 
by using the Underware Ribbon. This 
ribbon for the Epson, Gemini, and 
Okidata printers contains thermal 
transfer ink for iron-on images. Just 
remember to do a left to right flip 
with the DOODLE! software before 
printing. The ribbons are available for 
S19.95 from Diversions Inc., 1550 
Winding Way, Belmont, CA 94002 
(phone: 415-591-0660) (see the May 
85 Scuttlebutt). 
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SOME OPERATING TIPS 

The techniques used for black and 
white photography can be applied to 
imaging with the Computereyes sys- 
tem. As such, good photography 
practices apply. Pay careful attention 
to hghting and background. If you are 
using a black and white camera, pho- 
tographic colored filters for contrast 
enhancement can be quite useful. 

Want to get close up? A low pow- 
er magnifying lens placed directly in 
front of the camera lens will allow 
you to focus much closer than other- 
wise possible. The cost is minimal 
and image quality will be virtually 
unaffected. 

Being able to direcdy view the vid- 
eo image greatly simplifies the setup 
procedure. If you are using a moni- 
tor with your computer, a simple 
RCA type "y" adapter and a two po- 
sition video switch are all you need. 
Just intercept the camera signal with 
the "V" adapter and send it to both the 
Computereyes module and the video 
switch. The computer video output 
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goes to the other side of the switch 
to complete the hookup. The Com- 
modore 1701 and 1702 monitors are 
ideally suited for this purpose. Sim- 
ply send the camera output to the vid- 
eo jack on the front of the monitor. 
The computer should go to the back 
connectors. The switch on the back 
panel will let you select between the 
two sources. 

The camera video signal cannot be 
fed directly to the antenna terminals 
of a TV set. It will have to be con- 
verted to the radio frequency broad- 
cast format. An RF Modulator, avail- 
able from Radio Shack as catalog 
number 15-1273 for $24.95, will do 
the job. If you can do some of your 
own tinkering, then the basic RF 
modulator, sans power supply, is 
available for $9.95 as catalog num- 
ber 277-221. Simply feed both the 
computer and the modulated video 
signals to the set's antenna terminals 
via a game selector switch. Or set one 
to channel 3 and the other to chan- 
nel 4 and use the set's tuner. 

CONCLUSIONS 

Computereyes is an ea^ to use im- 
age digitizing system for the 64. The 
resulting images are remarkably de- 
tailed for such a low cost system. 
With care, direcdy usable images can 
be readily generated. The optional 
supporting software allows the imag- 
es to be saved for subsequent editing 
by some of the more popular graphics 
packages. The resulting images pro- 
vide a wealth of detail for manipula- 
tion in this environment. 

Digital Vision Inc., 14 Oak Street— 
Suite 2, Needham, MA 02192 (phone: 
617-444-9040). 

AUTHOR'S NOTE 

While working with Computereyes for 
this review I rapidly accumulated sever- 
al disks full of images on a variety of 
subjects. In feet the process became rath- 
er addictive. If you would like to have 
these for your own use I would be glad 
to provide a diskfiil for $12 to cover copy- 
ing and distribution. Just specify which 
fomiat you would like. An SASE will get 
you a listing of available disks and their 
contents. Send payment to Morton Kev- 
elson, P.O. Box 260, Homecrest Station, 
Brooklyn, NY 11229. 



BLAZING PADDLES 

Baudville 
Commodore 64 
Disk; $34.95 

Billed as a graphics package that 
wilt work with most of the input de- 
vices available for the Commodore, 
I found that Blazing Saddles worked 
well with both a joystick and the Ko- 
ala Pad, Although it worked with a 
Tech Sketch Light Pen, it was ex- 
tremely erratic. While supposed to 
work with track balls, paddles, light 
pens, joysticks, or graphics tablets, 
it can only be used with one device 
each time it is booted up. If you wish 
to change devices during a session, 
you must reboot the program — a 
three-minute process. Quick loaders 
like FastLoad and Mach 5 have no 
effect on Blazing Paddles. 

One annoying deficiency can be 
found as soon as you decide to boot 
the program. The documentation 
warns not to plug or unplug devices 
while the program is running, but 
doesn't bother to tell you which in- 
put devices use which ports. Despite 
the warning, when the joystick failed 
to move the cursor I switched it to 
the other port. Fortunately, nothing 
blew up. From my experience the 
Koala Pad and light pen used port I, 
the joystick used port 2 . 

The program is designed well, with 
most of the features we've come to 
know and love: sketch, fill, zoom, 
and draw dots, lines, frames and box- 
es, ovals and circles. Especially nice 
is the undo command. Hitting a sin- 
gle key cancels your last update. A 
spray paint mode lets you brush in 
color a little at a time. Subsequent 
strokes darken the shading. 

The cut and paste window can be 
used to dupUcate things on the screen 
without having to redraw them. A 
window's contents can be saved and 
reloaded using a separate filename, 
as well. 

The screen can be cleared to any 
of the 16 colors. Since this is a two- 
step process requiring some preci- 
sion, it is very difficult to acciden- 
tally wipe out your work. In fact, 
about the only way to really mess up 
is to change the background color to 
the same color you're using to draw 
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with and then return to the main 
menu. This is entirely possible, since 
you can change the background col- 
or at any point during your work by 
using fl. 

A text mode allows you to put mes- 
sages or labels b your drawings. The 
characters look strange, both on the 
screen and in the printouts. One of 
the companion disks, Shapes and 
Fonts, has a number of other type 
styles that you can use for writing 
messages and labels. 

The $20 companion disks (Sfuipes 
and Fonts, Science, Kid Stuff) are 
probably the best recommendation 
for this program. These have pre- 
drawn figures that cover a variety of 
subjects. I used the electronic sym- 
bols from the science disk to create 
a circuit drawing. The resolution of 
printouts leaves something to be de- 
sired: high resolution. The print qual- 
ity is about the same as the Aba/a 
Painter in low resolution mode. 

The Blazing Paddles disk includes 
a few stick figures to show you how 
to take images out of the picture li- 
braries and put them into your draw- 
ings. This is one area where this pro- 
gram shines. The sprite sized figures 
can be manipulated before you put 
them into your picture. You can flip 
them over, rotate them around 90 de- 
grees, or change their color. The ex- 
tra disks have some useful shapes on 
them (especially if you're a kid trying 
to impress your science teacher). 

One other disadvantage that I found 
was not being able to exchange col- 
ors. Although switching the back- 
ground colors is easy, if you want to 
change the color of lines you've al- 
ready drawn it's a difficult task. I've 
only seen one graphics program with 
this feature, so I can't be too hard on 
Blazing Paddles for not having it. I 
originally chose a dark background 
with light lines for my circuit diagram 
because it was much easier on the 
eyes. When I got it finished, though, 
I realized it would look much better 
reversed. It took another two hours 
to redo the drawing. If I could have 
changed the background using fl and 
then changed the lines to another col- 
or, it would have taken only a few 
seconds. Using fill on thin lines is al- 



a Breakthrough in Value! 

ULTRABYTE 

NEW PRODUCTS -ALL 
with FREE BACKUP COPIES 



ULTRABYTE DISK NIBBLER 



Uses proprietary revision ot disk operating system (DOS) to make 
a bit by nit copy. This process, called niboling. copies the forinal 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35. 36, 37 or 38 tracks to copy inci. hall tracks 

• Makes up to 5 copies of each original — { UNIQUE FEATURE) 

• Backs up 99% of all protected software 

• Free backup copy -two disks for the price of one 



FOR 2 COPIES OF THE 
DISK NIBBLER 



plus $4.00 shipping snd handling. Mastercard. Visa. Check or M.O.. Foreign orders 
or COD add S2.00. Cati). add 6.5°° iSZ.GDj sales tax. Addillonal backup copies are 
$20.00 plus S3.00 shipping. ATTENTION: Owners of ULTRACOPY whose names 
are in our file may order a single copy lor S 20.00 plus S 3.00 shipping. 



FREE BACKUP DISKS 



McMURPHY'S MANSION 

,.^1 AN ULTRABYTE 
ilL^ TEXT ADVENTURE 



II seems that an unknown uncle has died in 
faraway Scotland and left you his vasi 
lortune. $10,000,000 lo be exact !f 

There is only one small problem. Dear old 
uncle McMurphy was a bit demented and 
has hidden your inheritance somewhere in 
his mansion. 

He lelt you only one small clue, a brass key. 
It is now up to you lo lind your fortune. 

• 30-60 hours of challenge 

• Sealed envelope ol hints 
lor beginners 

• Inslruclion manual Included 

• Solution sheet available 

^ $29.95 for 2 disks ^ 

plus S4.00 shipping. COD or 
Foreign add S2.0Q. CA tax $1.95 



THE DISK SURGEON 

^,.v\' AN ULTRABYTE 
^^ DISK UTILITY 

• Read data Irom. edit and write lo disk 

• Analyze disk errors without "t)ammering" 

• Write errors 20. 21 . 22. 23. 27 & 29 on disk 

• Read data under errors, erase errors 

• Decimal. HEX. Octal & Binary conversions 

• Formal a single track with any ID 

• Detailed instructions for beginners 

• Much more 

INCLUDES THREE PUBLIC DOMAIN COPY 
PROGRAMS THAT ARE NOT PROTECTED 

1| FILE COPY to copy portions of a disk 

21 SINGLE TRACK COPY 

31 4 MINUTE COPY ol entire disk. 

Protected disks also require error 

production 

i^ ^29.95 for 2 disks '^ 

plus S4.00 shipping. COD or 
Foreign add $2.00. CA tax SI. 95 



All Products lor Commodore 64 A 1541 Disk Drive Only 
Write or Call 24 Hour Order Line 

ULTRABYTE { 818 ) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 
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FREE 



10 DISKEHES 

OR 

20 C-20 CASSEHES 

A subscription to the 'Cassette of the 
Month' gets you a tape or disk full of 10 
quality Commodore 64 programs deliv- 
ered to you by first class mail every montfi. 
The documentation included will help you 
run great utilKies like Word Processor,' 
and 'Budget Analyzer,' or enjoy great 
games like 'Frogjump' and 'CaterpiNar 
Cave FOR AS LITTLE AS 50 CENTS 
EACH! 

* Limited offer •* Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free SVi single sided double 
density diskettes! PRippc 

TAPE DISK 

1YR(12ISSUES) 60" 75" 

6MO(6ISSUES) 35" +S" 

Single Copies 7°° 9°° 




* We ve been in business lor 
overthfeeyearslacquinng 

t Over 4000 satisfied cdof 
computer ownere 

* Commodore 64 required 



Midi Res add 4% 
OvBfseas wo S 1 10 subscnplion 
and S1 .00 10 smgie issues 

PEBSOWL CHECKS WELCOME! 

T4D Subscription Software 
PO,BOX25&<; 
HOLLAND, Ml 49423 ._. 
(616)396-7577 ^£ 
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most impossible, especialy if they're 
diagonals. 

Except for the one flaw mentioned 
at the beginning, the documentation 
is very good. Besides the manual, 
there is an onscreen help menu. Al- 
though it's a nice idea, by the time 
the help file loads you could have 
looked it up in the manual. Keyed 
to the input device you are using, it 
gives brief instructions on how to en- 
ter commands. 

For instance, the joystick will draw 
on the canvas as long as the fire but- 
ton is held down. To go back to the 
main menu, you must press f5 to take 
the cursor off the screen and then hit 
the fire button. For some reason, 
when using the joystick the cursor 
won't go over into the border. 

The joystick is very slow to re- 
spond, by the way The light pen but- 
ton wouldn't work, so 1 had to use the 
control key instead. Also, the calibra- 
tion on the light pen was off by about 
half an inch. In addition, whenever 



1 tried to change the brush color, the 
background color of my drawing 
would change, too. Although the fl 
key could be used to change it back, 
it was a pain in the neck. Of all the 
input devices used, I enjoyed the Ko- 
ala Pad most. It responded quickly, 
and didn't give me any trouble. 

This is a nice graphics package, 
although the input device you use will 
ultimately determine how satisfied 
you are with it. I would rate it about 
equal to other packages in its price 
range. Unless you are specifically 
looking for a package to use with sev- 
eral input devices, you would prob- 
ably do just as well to buy any of the 
devices that comes with its own soft- 
ware and leave it at that. If you want 
to spend the extra money for the 
shapes disks, then Blazing Paddles 
becomes a good value. 

Baudville, 1001 Medical Park 
Drive S.E., Grand Rapids, MI 49506 
(phone: 800-824-8873). 

— Cheryl Peterson 



Dreams CAN come true! 



display. Tnnf 
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Back in June of 1983, Kelvin Lacy 
had a dream. He dreamed of creating 
one integrated program that would 
include a spreadsheet, business 
graphics and a database. A program 
with the power of Lotus 1-2-3. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. Ignoring the 
skeptical, he started on VIZASTAR. 

Now, after 15 months, his dream has 
come true. VIZASTAR has a full- 
featured spreadsheet, as good as 
Multipian. But much faster— faster 
than many spreadsheets on the IBM 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It Is menu- 
driven, using the latest techniques in 
user-friendtiness. It is compatible with 
virtually ail printers and word 
processors. Up to 9 windows can be 
open simultaneously, anywhere. 
Remarkably, IQK of memory is 
available for spreadsheet use. 



The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest. 

Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D "skyscraper" graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key to VIZASTAR's power— the first 
and only program of this kind on the 
C-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 

Trddenurka Lotu» t-^ 3 Lotus DevBlopnwm. Commodore 
64 Commodore Elcctronirs Lid Mulliplan Microsalt 




Actual scieen dump pnnled by VIZASTAR 

VIZASTAR includes a cartridge, a 1541 
diskette with a backup, reference and 
tutorial manuals, VIZASTAR is ONLY 
$119.97. We are so positive you will be 
delighted with VIZASTAR that we offer a 
ISdaymoney^back guarantee. Try it risk- 
free! Compare VIZASTAR with any other 
spreadsheet or database. 

So order today. Call or send a check or 
Money Order. Calif, residents add 6.5% 
sales tax. I^IC/VISA accepted. 
Add P&H: UPS— $3; COD, Canada-$6 



50UD 5TRTE 50FTURRE 



1125 E. Hillsdale Blvd., Suite 104 

Foster City, CA 94404-1609 

(415) 341-5606 

Dealer Inquiries Welcome 
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GO-LISTER 



A Programming Aid for the C-64 



By John K. Lunde 



Go-Lister is a machine language utility that 
produces a printout showing which BASIC 
program Mnes are called by GOTO, 
GOSUB, THEN, and ON statements in 
other program lines. 
Anyone who has ever tried to modify a program writ- 
ten by someone else, or who has simply lost track of 
where the GOTOs get to in his own program, knows the 
frustration of changing a line in some apparently innoc- 
uous way only to have the program begin to act strange- 
ly because the line is accessed by a transfer statement 
somewhere else. 

This utility provides a warning when a particular line 
is used by several other lines in common, and shows when 



it is safe to 'crunch' one or more lines together. 

It is also useful in analyzing programs, since knowing 
which lines are called by others gives you a good idea 
of the program's structure. 

Go-Lister must be typed in using our Rankspeed ma- 
chine language entry program. Follow the instructions 
on page 86 for typing and saving Flankspeed. Then run 
Flanhpeed, and type in and save Go-Lister. 

To use Go-Uster. type LOAD ''GO-LISTER",8,l and 
load your target program, then type SYS 49152 to run 
Go-Lisier. The only restrictions are that the target pro- 
gram must start at the usual start-of-BASIC location 
(2049) and that the printer must be device #4. D 

SEE PROGRAM LISTING ON PAGE 109 



MOXEY'S 
PORCH 

For the C-64 

By Bob Blackmer 

Moxey's Porch is an arcade-style game played 
on a three dimensional multistep porch. 
After entering and running the game you 
will be asked if you want instructions. Then 
enter the level (1-9) that you wish to start at 
(level 9 is easiest). 

You control Enzo as he jumps on his pogo stick. His 
neighbor, Moxey, a Ukeable fellow, has just put the finish- 
ing touches on his newly painted porch. 

Using the joystick in port #2, maneuver Enzo around 
the porch marking up the steps. Don't let Moxey catch 
you as he runs around his porch trying to stop you, or 
the game is over. 

After you mark up all the steps, you reach the next 
level where Moxey gets a little faster. See how long you 
can keep going once you reach level 1. 

Moxey's Porch is a good example of the game screens 
made possible by using multicolor custom character sets 
and multicolor sprites. D 

SEE PROGRAM LISTING ON PAGE 91 



Now Your 

Computer 

Can See! 

00* 




MicronEye" 
"Bultet" 



A total Imaging system complete 
and ready for plug-arvd-go opera- 
tion with your personal computer. 

The MicronEye- oiters select- 
able resolution modes of 256 x 1 28 
and 128 X 64 with operating speeds 
up to 15 FPS. An electronic shutter 
is easily controlled t>y software or 
manual functions, and the included sample programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades of grey from the moment you begin operation. 

Only the MicronEye" uses the revolutionary IS32 OpticRAM'" image 
sensor for automatic solid state image digitizing, with capjability for grey- 
tone imaging through multiple scans. And vwth these features, the 
MicronEye" is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye " is available with immediate delivery for these com- 
puters: Apple II. IBM PC, Commodore 64 and the TOS80CC (imdmaduot 

Apple Computer \nc . IntemtitiDndli Dusirw^ss Ma 
chtfws. Comnxidofe Coip . and TaivJv Coip 
ftspi-ctrvefyj 

Phone for MicronEye'" information 
on Ihe Macintosh. Tl PC and RS232 

(trjdemarki ol K^c Computet Inc and Tesas In 
TiiruiTW-fiis- it'spt'ctpvtly.j 

'lAdd ^lO.OO for shipptng ar<6 handling IFederal 
Ejipress Sundard Air): residents o( Ihe folkiwir>g 
siaits /iiu_sf Aiid saies tax. AK. AZ, CA. CO, CT. FL, 
GA. lA. D. IL. IM. LA, MA. MCl. ME. ^. MM. NC. PHE- 
ru, W. OH. PA. SC. TIN. TK.. UT. VA, \T. WA, Wl ) 



IICRON 

I TECHNOLOGY, INC. 

SYSTEMS GROUP 

1475 Tyrell Lane 
I Boise, Idaho 83706 
(208) 336-3800 
TWX 910-970-5973 
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TOURING THE 
COMMODORE 118 
KEYBOARD 

Continued from page 54 

THE REST OF THE KEYS 

The top row of the keyboard has 
a total of 16 keys in groups of four. 
The four function keys on the right 
have been described above. The left- 
most grouping includes the ESCape 
and the TAB keys as well as an ALT 
key and a CAPS LOCK key. The 
ALT key is intended tor use with al- 
ternate character sets under program 
control. This will be a topic for fu- 
ture discussion. The CAPS LOCK 
key acts as a SHIFT key only on the 
letter keys. As with the SHIFT 
LOCK key, the CAPS LOCK key in- 
cludes a mechanical latch to hold it 
down. 

The next group starts with a HELP 
key. If this key is pressed immediate- 
ly after a BASIC program error, the 
offending BASIC line will be dis- 



HARNESS RACE ANALYZER 

Let the speed and power of your computer 
give you ihat added edge! Features: 

•k Analyses 1 1 important caiagories 

(all found on the daily racing form). 

•k Morning line odds are NOT used in 
the computations. This gives you a 
source of information independent 
from the morning line. 

■k S<mpl(fied data entry - approxi- 
mately five minutes per race. 

k Info on up to 20 races printed on 
one page master printout including 
ratings for each horse, bet sugges- 
tions, and best bets of the day. 

* If no printer is available, information 
is sent to the screen. 

k Bet suggestions include: best win, 
place, show quinella. perfecta, exac- 
ta, trifecia and tri-box. 

k Printout info can also be saved to 
disk for later use. 

Available on disk for the 
C-64*, PLUS/4* and C-16* 

Please specify which computer 
you are using. 

Send Check or l\^oney Order for 
S24.95 to; 

ALSOFT 

BOX 164; CLAIRTON, PA 15025 

"Tradamarit of Commodora Eiscuonict 
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TABLE OF CONTROL KEY FUNCTIONS 

CONTROL B CHR$(2) Turn underline on in 80 column display 

CONTROL G CHR${7) Produce bell tone 

CONTROL H CHR$(8) No effect 

CONTROL I CHR$(9) Move cursor to next tab stop 

CONTROL J CHRSdO) Send a linefeed without a carriage return 

CONTROL K CHRSdl) Enable character set change 

CONTROL L CHR$(12) Disable character set change 

CONTROL O CHR$(!5) Turn flash on in 80 column display 

CONTROL X CHRS(24) Tab set or clear 

CONTROL f CHR$(27) Send an ESCape character 

CHR$(130) Cancel 80 column underline 

CHR$(143) Cancel 80 column flash 



played. Starting with the point in the 
line at which the error occurred, the 
remainder of the line will be dis- 
played in reverse on the 40 column 
display and underlined on the 80 col- 
umn display. 

The LINE FEED key moves the 
cursor down without a carriage re- 
turn. This is the same as the 
CONTROL J ( CHR$(10) ) described 
above. The 40/80 DISPLAY key is 
another mechanically latched button. 
It determines the display mode on 
power up or when the reset button is 
depressed. Latching it down defaults 
to the 80 column display. It has no 
effect once the computer is up and 
running. The NO SCROLL key acts 
as a pause button. It comes in handy 
for freezing a program or directory 
listing in its tracks. Hitting a key a 
second time restarts the listing. In a 
similar fashion, it also pauses pro- 
gram execution. 

The next group consists of four in- 
dependent cursor keys. These dupli- 
cate the operation of the cursor keys 
at the bottom of the keyboard. The 
notable exception is that it is not nec- 
essary to SHIFT for a cursor up or 
a cursor right. I found that I have 
grown so accustomed to the old cur- 
sor keys that I almost never used the 
new ones. Perhaps the need to reach 
to the top of the keyboard discour- 
ages their use. 

Finally, a 14-key numeric keypad 
duplicates the function of the num- 
ber, plus, minus, period/decimal 
point, and RETURN/ENTER keys. 
The numeric keypad and the four in- 
dependent cursor keys are electrical- 
ly different from the number keys and 
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the cursor keys on the Commodore 
64 subset of the keyboard. Although 
they return the same CHR$ code with 
a GET statement, it is possible to dis- 
tinguish them by PEEKing an appro- 
priate location. (See sidebar on page 
52 for details.) 

This hardware separation of the 
keypad from the rest of the keyboard 
is a minor disappointment to C-64 
upgraders. If the keypad had been 
kept electrically identical to the num- 
ber keys on the keyboard it would 
have been usable in C-64 mode as 
well. This would have allowed the use 
of all existing Commodore 64 pro- 
grams with the numeric keypad. 
Keeping the keypad compatible could 
have been easily accomplished by 
simply paralleling the existing con- 
tacts. Actually, this would have been 
cheaper to implement than the 
scheme used. Apparently, Commo- 
dore felt the extra flexibility offered 
by the electrical separation was worth 
the extra effort. 

LAST BUT NOT LEAST 

Tucked away on the right side of 
the C-128, next to the on/off switch, 
is a small square push button. It is 
mounted flush with the surfece, mak- 
ing accidental activation unlikely. 
This is a true hardware reset button. 
Pressed on its own, it will bring the 
C-128 back to its initial power up state 
in the current mode. In conjunction 
with the Commodore logo key, it will 
force a reset to C-64 mode. If the 
RUN/STOP key is held down, the 
C-128 will come up in the machine 
language monitor with the current 
BASIC progi^am in memory intact! D 



Rockets:, Boats, 
and Pigs in Pokes 

Continued from page 28 

into the flag-bit register at HR. 
VZ The lowest vertical position allowable on the screen. 

minus 1. 
HZ The rightmost horizontal position allowable on the 

screen, minus 1. 
VP The current vertical position (a number from to VZ) . 

HP The current horizontal position (a number from 

to HZ). 

In addition. Pig in a Poke uses several game-control 
variables: 

This string contains all the fence units; segments 
arc randomly selected to make each new fence 
moving up the screen. 

This array determines the starling points for each 
difficulty level in selecting a segment of the fence 
to display. 

Row count- how many blank lines have been in- 
serted between fences. 

The total number of fences added to the screen 
so far. 

The delay variable— how many seconds should 
pass before the fences arc scrolled upward. 
The difficulty level, or gap-width variable-how 
far into the string WSS the next fence should come 
froni. Since gaps are narrower and fences wider 
the farther you go into WSS, the higher this num- 
ber, the more difficult to get through the fence. 
The spacing between fences. It begins with five 



EG 



WSS 

WLfnJ 

RC 
RT 
DT 
DL 

DS 



blank lines between fences, then progresses to 

only one blank line before the program ends. 

End-of-game flag. Several ending conditions set 

this flag, which cau,ses the program to jump to 

the ending routines. 

K, K(n), KP(n} In the main loop, these variables are used to in- 
tcqirei keypress data. 

KP The current direction of movement. This is used 

with LTf/ij and ST(it) to determine whether to dis- 
play the shape of a left-facing pig or the shape 
of a right-facing pig. 

At the beginning of Pig in a Poke, line 5 moves the 
top of BASIC memory below the video block at 32768, 
Then lines 10 through 13 send the program to four set- 
up routines. 

Video Memory Set-Up. Lines 600-604 teil the VIC-2 
to find the video block at 32768, and where within that 
block the VIC-2 and BASIC can find screen memory. 

Lines 610-634 assign the addresses of various regis- 
ters to the variables listed above. Lines 636-637 set up 
the set-bit and clear-bit arrays. 

Lines 640-654 set the initial values of most registers. 
If you want to experiment, change these at will and see 
how they affect the game. 

Lines 690-696 disable the SHIFT/COMMODORE and 
RUN-STOP/RESTORE interrupts. This is because 
SHIFT and COMMODORE are used for left and right 
movement in the game, and we don't want the character 
set shifting back and forth; and because video memory 
has been relocated, a RUN-STOP/RESTDRE would 
cause the machine to become virtually unusable. 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

At Genesis Computer we produce a complete line o1 home security and energy management products, They combine with 
your Commodore 64 lo make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VIConlroller allows you to control up lo 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control scfiedules. 

Your system can be expanded by adding Genesis' COMsense inpul device, Super ^^ 

Schedule Plus software, and available sensors. Commands can p^'^ --,-.-.i.=i:-. :i* 

then be issued in response to on/off inputs such as the 

opening of a door or analog inputs such as a change in /<>-\lc:-^.:0 

light level, By adding COMclock, a crystal .■;.■;■< ■■.-\:-- 2: 

controlled clock/calendar, your system will "^ 

have an accurate, battery s 

backed-up lime base, . .,„--;cV;:,.; ■■ ?::: '"' :■■*.■■: ;v;;-: 

CQMclock's Aufoboot ROf^ . ..r^'S^SvS;^-- ■ :v.;-.-;vv- .# 

acts as a failsafe restart tor 

Ihe system in the event of 

a power failure. I 




Sold separately the VIController, 

COMsense and COMclock 

sell for $69,95 each and ' '^ 

the Super Schedule Plus software sells for $19,95, All four products are available together in our HOME CONTROL 

PACKAGE for only $199,95, 

Call 215-861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. • P.O. Box 152 • Hellertown, PA 18055 
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Background Preparation. Lines 700 to 730 set up the 
wall string WS$ and the variable WLfnJ, which controls 
the starting points for random wall segments at different 
difficulty levels. Line 740 sets the initial difficulty lev- 
els. DL should start at 0. DT is the number of seconds 
the program waits before inserting rows, A value of 
is too fast to play. DS is the number of spaces between 
rows at die beginning. You have to make sure the game 
ends before the program drops the value of DS below 
-this will cause a program-crashing error. 

Sprite Shape. Lines 800-808 read the strings of sprite 
data, and interpret them so that they can be POKEd into 
sprite shape blocks in the correct order. If you change 
the shapes, make sure that each string has 24 characters 
and there are as many rows as are called for by the vari- 
able TS plus I. If TS=9, then there must be ten strings 
of sprite information per shape. There must also be as 
many shapes as are called for by NS plus 1, so that if 
NS=1, there must be 2 whole sprite shapes. 

Sprite Pwiitioning. Line 900 sets the number of ver- 
tical and horizontal positions that will be allowed, and 
DIMensions the applicable arrays. 

Lines 902-904 set the horizontal position values, start- 
ing with the leftmost position, 24, and increasing each 
position by 2. Line 906 sets the vertical positions, start- 
ing at 53 and increasing each position by 8. 

Lines 920-922 set up the variables used in interpreting 
keypresses. KP(n) is indexed by the raw keypress at lo- 
cation 653. Values that mean nothing are set to 2; a key- 
press calling for left movement is set to 0, for right move- 
ments, to 1. The keypress that calls for the end of the 
game (SHIFT/COMMODORE/CTRL) is set to 3. These 
will be interpreted in the main loop. 

K(n) has only two possible values: K(0)=-1 and K(l) 
=1. When indexed by KPfnj, these values will be added 
to or subtracted from the current horizontal position (HP) 
of the sprite. 

Lines 930-931 set the initial sprite position and POKE 
it into die proper registers. Line 940 POKEs the current 
shape block code into the sprite location register. 

Lines 950-960 set up the initial play field screen. Line 
960 is especially important, because if it were not done, 
the screen would scroll two lines at a time each time a 




fence was moved off the top of the screen. 

Lines 970-990 clear the collision registers and set die 
timer back to 0. 

Main Loop. After die set-up subroutines are execu- 
ted, die program jumps to die main loop. Line 100 reads 
die keyboard for SHIFT, COMMODORE, and CTRL 
keypresses. If die end of die game is called for, the pro- 
gram jumps to the End-of-game routine at 300. 

Line 105 checks for meaningless keypresses and ig- 
nores diem. Line 110-115 change the horizontal position, 
depending on the keypress, and cause the pig to "wrap 
around" if he goes off die edge of die screen. 

Line 120 checks to see if die pig has changed direc- 
tion. If he has, the sprite shape location register is changed 
accordingly. Line 125 POKEs die new horizontal posi- 
tion into the two registers affected. 

Line 130 checks die timer to see if it's time to scroll 
die screen. Line D5 checks to see if die player has moved 
the pig so it bumps into a fence. 

Ending Routines. Lines 300-315 display die end of 
game messages, indicating die score, which gives points 
for die number of fences displayed before the end and 
how low die pig was on die screen at die end. Then diey 
move die pig down to die middle of die screen. Line 320 
checks for a keypress; if Q is pressed, die program jumps 
to 370, the end-of-game routine. 

Lines 325-330 cause die pig to move along die screen 
continuously while die program waits for die player to 
input a choice. Line 345 keeps die program looping 
dirough die pig's movement unless die player has pressed 
P to play again, in which case line 350 resets die initial 
variables and goes back to line 100 for the next game. 
Lines 370-390 put video memory back to normal and 
reenable all die key combinations diat were disabled be- 
fore; dien die program ENDs. 

Collision Handling. This routine is only executed if 
a collision has already taken place. It bounces die pig 
up to die next valid vertical position. Then it clears die 
collision registers and checks again to see if die pig is 
still touching a fence, in which case it starts over again, 
bouncing die pig up still one more row. If die vertical 
position, VP, is ever higher dian the top of die screen, 
EG is set to 1, which will end die game when die main 
loop is executed again. 

Scrolling Routines. If we're between fences (RC < DS), 
dien line 502 PRlNTs enough cursor-down characters to 
cause die screen to scroll up one line. The fence-adding 
routine is skipped. 

Lines 506-508 select a new fence segment, PRINT it, 
and dien advance all die counters, changing die difficul- 
ty level if necessary. Line 510 checks to see if die maxi- 
mum number of rows has been added. Right now die 
game is set up to PRINT 50 new rows on the screen be- 
fore it ends. 

Line 520 checks for collisions. Line 580 clears the 
screen line link table so die screen will only scroll one 
line at a time. Then die timer is reset. D 

SEE PROGRAM LISTINGS ON PAGE 95 
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The Second of Two Columns on Assembly Language Addressing 

By Mork Andrews 



Looking for a byte of data in a computer is 
something like looking for a street address 
in a large city. If you don't know the city 
and don't have a map, the task is virtually 
impossible. If you can find a map, it helps. 
And with or without a map. the job gets easier as you 
ieam your way around. 

Last month, we saw how a set of programming tools 
called addressing modes can be used to retrieve data from 
memory (and store data in memory) in Commodore 64/ 
Commodore 128 assembly language. In case you missed 
that column, here's a brief review: 

There are B addressing modes in C-64/C-128 assembly 
language. Of these, one of the simplest (and most com- 
monly used) is absolute addressing. Using the absolute 
addressing mode is like going straight to a street address 
that someone has given you, and immediately finding 
what you're looking for. 

This is the format used for writing a statement using 
absolute addressing in C-64/C-128 assembly language: 

LDA $1234 

The above statement means, "Load the accumulator 
with the content of memory address $1234." If this state- 
ment were encountered in an assembly language program, 
the contents of the Memory Address $1234 would be 
loaded into the 6510/8502 accumulator, the main internal 
register in the main microprocessor of a C-64 or a C-128. 
(As you may recall from previous columns, loading a 
value into the 6510/8502 accumulator is the initial step 
b many different kinds of assembly language operations. 
As you may also remember, the "$" sign in front of the 
number 1234 means that it's a hexadecimal number.) 

IMDEXED ADDRESSING 

A slightly more complex addressing mode is called 
indexed addressing. Using it is like using a street ad- 
dress to find an apartment building, and then using an 
apartment number to find an apartment in that building. 
In a statement written using indexed addressing, the in- 
struction specifies both an address and an index register 



(either the X register or the Y register, if you're program- 
ming in C-64/C-128 assembly language). The value of 
the index register is then added to the specified address, 
and the sum of this addition operation is the final ad- 
dress of the instruction. 

Indexed addressing is often used in loops that are de- 
signed to retrieve bytes of data in succession from data 
tables. Since the X and Y registers are often used as coun- 
ters in such loops, they have been provided with a spe- 
cial set of instructions that enable them to be incremented 
and decremented very easily. There are also instructions 
that can be used to compare the values of the X and Y 
registers with other values. These comparison instructions 
are often quite useful in determining the boundaries of 
data tables. 

In C-64/C-128 assembly language, this is the format 
for writing a statement using indexed addressing: 

LDA $1234,X 

A PROGRAM ILLUSTRATING INDEXED ADDRESSING 

Vie Quest, found on page 100 of the program listings 
section, illustrates the technique of indexed addressing. 
The program was written using the Commodore 64 Macro 
Assembler, but can be easily modified to work with other 
assemblers. 

One feature of The Quest we have not encountered until 
now \s a directive, or pseudo-op, in Lines 110 to 130 .This 
directive is written "BYTE" in programs created with 
the Commodore 64 Assembler. If you own a Merlin 64. 
use the Merlin equi\^ent of this directive, which is DFB, 
If you own a Panther C-64 the equivalent is DFC. 

The .BYTE/DFB/DFC directive is sometimes called 
a pseudo-operation code, or pseudo-op, because it ap- 
pears in the op-code column of assembly langu^e source 
code listing but is not actually a part of the 6510/8502 
assembly language instruction set. Instead, it's a special- 
ized directive that varies in format from assembler to as- 
sembler. Many other pseudo-ops have formats that differ 
from one assembler to another, because there are no gen- 
erally accepted standards for writing pseudo-op directives. 

When the "BYTE" directive (or one of its equiv- 
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alents) is used in a program, the bytes that follow are 
assembled into consecutive locations in RAM. In The 
Quest, the bytes that follow the label TEXT are ASCII 
codes for a series of text characters- as you will see 
when you type and run the program. 

In TTie Quest, the X register is used as an index register. 
In Line 150, die X register is loaded with a zero. Then 
in Line 170, indirect addressing is used to load the ac- 
cumulator with the first byte of the data segment labeled 
TEXT, plus the value of the X register. Since the value 
of the X register starts out as zero, the first value that 
will be loaded into the accumulator is the first byte of 
the line labeled TEXT, which is the number 87- or the 
ASCII code for the letter "W". So, in Line 180, the routine 
CHROUT (a screen-printing subroutine built into the 
C-64/C-I28 operating system, or Kemal), will print a "W 
on the screen. 

Next, in Line 190, the instruction INX ("increment the 
X register") is used to increment the value of the X reg- 
ister. Then in Line 200, the value of the X register is 
compared with the number 23 -the length, in bytes, of 
the text string being printed on the screen. If 23 charac- 
ters have not yet been printed, the program cycles back 
to Line 170, labeled LOOP, and the next character is 
printed. Finally, when all 23 characters have been printed, 
the program ends. 
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IKDIREa ADDRESSING 

Indirect addressing is a form of indexed addressing 
slightly more complex than the simple, no-frills indexed 
addressing used in 77?^ Quest. When indirect addressing 
is used in an assembly language program, the contents 
of a pair of memory addresses - rather than the address- 
es themselves -are added to the value of an index register 
The sum is then used as the final address of an instmction. 
Indirect addressing could be compared to a situation 
in which several persons need to get to a meeting each 
week, but are never sure where the meeting is being held 
because its location changes from time to time. One solu- 
tion would be to direct eveiyone to the same address every 
week, and let them know in advance where to look when 
they arrived -under the doormat, for example -for a note 
containing the address of diat week's meeting. 

In 6510/8502 assembly language, indirect addressing 
is often used when rapid changes must be made in data 
being accessed by a program. If indirect addressing did 
not exist, huge blocks of data would often have to be 
moved into and out of programs in real time, resulting 
in tremendous delays in processing. Fortunately, the ex- 
istence of indirect addressing can usually eliminate this 
problem. In a program that uses indirect addressing, it 
is not usually necessary to incorporate large blocks of 
data into the body of a program, and to move them around 
in memory when one block of data must be exchanged 
with another. Instead, the address of a block of data can 
be used in a program. Then, when it is time to replace 
that block of data with another block, all a programmer 
has to do is substitute the address of the new block of 
data for the address of the old one. In this way, by 
changing only a few bytes of memory during the execu- 
tion of a program, an assembly language programmer 
can juggle blocks of data that are hundreds, or even thou- 
sands, of bytes long in a tiny fraction of the time it would 
take to move one whole block of data out of a section 
of memory and then move another block of data in. 

Actually, there are two indirect-addressing modes in 
6510/8502 assembly language: indexed indirva addressing 
and indirect indexed addressing. As mentioned last 
month, one way to keep these two confijsing terms straight 
is to remember that the word "indexed," which contains 
an "X," is the first word in the term "indexed indirect 
addressing -the form that uses the X register. And the 
other mode -indirect indexed addressing -is the mode 
that makes use of the Y register. 

Both indexed indirect addressing and indirect indexed 
addressing have one unfortunate limitation: they can be 
used only with zero-page addresses, that is, with memory 
locations that have addresses ranging from $00 to $FF 
(or from to 255 in decimal notation). Much more will 
be said about zero-page addresses in later columns, but 
this is all we need to know about them right now; since 
there are only 256 such addresses in the memory space 
of a Commodore computer -and since most of those are 
used by the Commodore's BASIC interpreter and oper- 
ating system -the zero-page memory requirements of 



indirect addressing place rather severe restrictions on the 
use of indirect addressing in user-written programs. These 
restrictions are especially severe in the case of indexed 
indirect addressing, because indexed indirect addressing 
can be used only with address tables that are located in 
their entirety on Page Zero, Because of this limitation, 
indexed indirect addressing is not often employed in 
user-written programs. It is a good idea to know how 
it works, however, since it is sometimes encountered in 
ROM routines, and can even come in handy now and 
then in user-written programs, provided that the necessary 
space on Page Zero can be found. 

INDEXED INDIREa ADDRESSIHG 

When indexed indirect addressing is used in a program, 
the format is: 



address. In other words, the indexed address would be 
used as a pointer to still another address. And that would 
be the final address of the instruction LDA. 

As an illustration of this concept, let us assume that 
the X register contained the value 2 when the statement 
"LDA {$FB,X)" was encountered in a program. First, 
the number $02 -the value of X register-would be added 
to the value $FB. The sum of this calculation would, of 
course, be SFD. And the content of diat address -plus 
the content of the following address, $FE -would point 
to the final address to be accessed by the mnemonic LDA. 

Now let us suppose the 16-bit value of $1234 were 
stored in the zero-page pointers SFD and $FE. Since the 
low byte of a 16-bit value always comes first in 6510/8502 
assembly language, the contents of page-zero pointers 
SFD and $FE would thus be as follows: 



LM ($FB,X) 

If the above statement appeared in an assembly lan- 
guage program, the value of the X register would be 
added to the value of $FB. The resulting sum would then 
be interpreted as another address. However, the accum- 
ulator would not be loaded with the value of that address. 
Instead, the content of that address, and the content of 
{hefollmving address, would be interpreted as still another 



DRESS 


CONTENT 


SFD 


$34 


$FE 


$12 



Now let us suppose that the value SCOOO were stored 
in memory address $1234. If the value of $1234 were 
stored in page-zero pointers SFD and SFE, as illustrated 
above, the 16-bit value contained in $FD and SFE would 
contain, or point to, the address $1234. So the final ef- 
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feet of the statement "LDA (SFB.X)" would be to load 
the accumulator with the value $C000. 

IHOma INDEXED ADDRESSING 

Indirect indexed addressing is more versatile -and 
therefore more useful -than is indexed indirect address- 
ing. When indirect indexed addressing is used to retrieve 
a value from a table or a block of data, only two bytes 
of valuable zero-page address space are needed. (In con- 
trast, in the indexed indirect addressing mode, a whole 
table of address pointers must reside on Page Zero.) 
Therefore, indirect indexed addressing is used much more 
often in user-written programs than is indexed addressing. 

The format of a statement that uses indirect indexed 
addressing is: 



LDA ($FB),Y 

In the above statement, it is worthwhile to note that 
while parentheses enclose the address SFB, the "Y" which 
represents the Y register lies outside the parentheses. This 
is important to remember, since it means that in indirect 
indexed addressing, the value of the Y register is used 
not to index the address $FB, but rather to index the con- 
tent of the address $FB. 

Now let us return to the statement "LDA ($FB),Y". If 
this statement were encountered in an assembly language 
program, the content of memory address SFB, plus the 
content of the following memory address -that is, $FC- 
would be interpreted as a memory address. Next, the val- 
ue of the Y register would be added to that address. And 
finally, the accumulator would be loaded with the con- 
tent of that final address. In other words, the 16-bit val- 
ue stored in the addresses SFB and $FC would be used 
as a pointer to indicate the final address of the instruc- 
tion LDA. 

To more clearly illustrate how indirect indexed address- 
ing works, let us assume that memory addresses $FB 
and SFC held the address SI234 when the statement "LDA 
(SFB),Y was encountered. Since the low byte of a 16-bit 
value always comes first in 6510/8502 assembly language, 
the contents of memory addresses SFB and $FC would 
thus be as follows: 

ADDRESS CONTENT 

$FB $34 

$FC $12 

Now let us suppose that the Y register contained a 2 
when the statement "LDA ($FB),Y" appeared. In this 
event, the number $02 -the value of the Y register- 
would be added to the 16-bit address $1234. The sum 
of this calculation would, of course, be $1236. So the 
content of memory address SI236 would be interpreted 
as the final address to be accessed by the mnemonic LDA. 

Finally, let us suppose that the value SFOAC were stored 



in memoir address $1236. If this were the case, the final 
effect of the statement "LDA ($FB),Y" would be to load 
the accumulator with the value SFOAC. 

IMPROVING TH£ QUIST 

Before I sign off this month, I'd like to direct your at- 
tention to another program. Response, which appears af- 
ter The Quest in the program listings section of this issue 
(see page 1(X)). Response works somewhat like The Quest, 
but demonstrates a few more programming techniques - 
and, in addition, provides an answer to the riddle pre- 
sented in TJte Quest. 

In Line 130, insted of using ASCII codes to represent 
typed characters, Response uses a pair of delimiters to 
enclose a real string of typed characters -a feature pro- 
vided in one form or another by most assemblers, in- 
cluding the Commodore 64 Assembler, the Merlin 64. 
and the Panther C-64. 

At the end of this text string, however, there is one 
ASCII code: the number 13, which equates to an end- 
of-line (or "EOL") character. (An ASCII code had to be 
u.sed here, since typing an actual return character would 
cause the assembler to move on to another line.) 

In Lines 150 through 210 of Response, a text buffer 
(created in Line 510) is filled, or "stuffed," with blank 
characters, or spaces. Next, in Lines 250 through 320, 
an X loop is used to place the text string in Line 130 
in the now-empty text buffer. Then, in Lines 360 through 
460, the message in the buffer is printed on the screen. 

The loop that prints the message works somewhat dif- 
ferently than the printing loop used in The Quest; in- 
stead of counting the number of characters in the text 
string which is being used, this loop keeps checking the 
accumulator for the presence of an end-of-line character. 
If no EOL character is detected, the program loops back 
to Line 370, and prints the next letter on the screen. When 
the EOL character that ends the text string is finally 
found, the program ends. 

WHAT'S AHEAD 

Next month's column will include the most advanced 
type-and-run program that has been presented in this 
space so far. Called The Name Game, it is an interac- 
tive game that will demonstrate the use of indirect in- 
dexed addressing, and do a bit more, too. The Name 
Game, which I have used for years to demonstrate cer- 
tain programming principles, is a simple interactive game 
in which the player converses with the computer. It will 
not only print messages on the screen, it will also ac- 
cept typed-in text, and print that on the screen, too. It 
will then compare the data that is typed in with a string 
of data stored in a buffer-and will use this comparison 
to determine the outcome of the game. So— see you in 
next month's column. D 

SEE PROGRAM LISTINGS ON PAGE 100 



All the programs in Ahoy! are ovaifabfe on disk or tape. See page 23. 
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FOR BEGINNING USERS OF THE COMMODORE COMPUTERS - By Cheryl Peterson 

Commodore's sales figures for Christmas 
1984 showed twice as many disk drive sales 
as Commodore 64 sales. So it's a safe bet 
that most of you have already upgraded 
your systems to include this much-needed 
peripheral. That's great, because most of this month's col- 
umn is going to concern the disk drive. For those of you 
who don't have drives, read this installment to find out 
some of the reasons for getting one. With the prices be- 
ing dropped (I've seen them as low as S159), now may 
be the time to buy. 

Despite complaints about the 154rs speed, it's a vast 
improvement over tape. Having used a disk drive from 
the very beginning, I can't even contemplate waiting for 
a tape program to load. Only twice have I been in a situa- 
tion desperate enough to warrant using the cassette drive, 
and both times I was elated to go back to my disk. 

DISK BASICS 

Although they may seem obvious to experienced disk 
users, there are some basic facts about using a disk bas- 
ed system that you should know. And don't think just be- 
cause you've been around, you know everything. 

Case in point: a professional musician who uses an 
electronic synthesizer calls my husband (who repairs elec- 
tronic equipment). Since it's fairly late in the evening, 
my husband is reluctant to run across town. The prob- 
lem is eventually traced to the disk drive in the synthe- 
sizer. In a brilliant flash of insight my husband asks, "Do 
you have the drive sitting on a speaker cabinet?" He did! 
Although moving die drive did not entirely solve the prob- 
lem, the incident does demonstrate that even experienced 
users sometimes forget the basics. 

Disks (and to a much lesser extent, drives) are sus- 
ceptible to magnetic fields. A computer diskette is noth- 
ing more than a round recording tape; a piece of plastic 
with an iron oxide coating melded to it. Data is stored 
on the disk by polarizing the magnetic fields of the iron 
ions. If you take a disk and place it in an area where 
there is a high magnetic field (for instance, around speak- 
ers connected to stereo systems), it is entirely possible 
that you will erase the disk or scramble the data. 

The plastic on which the iron is mounted is similar 
to that used in record albums. Heat can warp the plastic 
and cold can make it brittle. At sufficiently low temper- 
atures, the iron oxide loses its bond to the plastic and 
there goes your data. 

Disk sleeves were made to be used. Please don't throw 
them away. The keeper of our user group library never 
could see any reason to take up extra space in files by 
leaving the jackets on the disks. After about six months 
of rubbing together, the oxide started falling off, and the 



entire library (some 120 disks worth) had to be recopied 
onto new disks. Besides the expense of buying more disks, 
it took days to make the new copies. 

What I'm trying to point out is that disks are fragile. 
Even the best disks will wear out eventually. But if you 
treat them right, they can last for several years. Disks 
that see heavy use may only last a year, but that's why 
you always keep backup disks, right?! 

A good rule of thumb is to make a backup copy of 
the file in which you are working at least once every half 
hour. This way you never lose more than 30 minutes of 
work. Frequently, the backup copy is on the same disk 
as the original. Most word processors and other heavy 
use software have a save and continue working feature 
that will quickly create a duplicate of the file so far and 
then let you continue where you left off. This is your 
first backup. 

At day's end, it's a good practice to use a copy program 
to make a duplicate of each disk modified that day. (These 
copies should be made on disks that will be stored sep- 
arately from those you use each day.) If you are doing 
anything more important than writing letters to goldfish, 
a safety is a necessity. I hope to compare a few of the 
commercial copy programs in a future column. Fast Load 
has such a program built into it. 

ORGANIZATION 

Most beginners don't have any idea how fast the disks 
collect. With a typical family, before you know it, you'll 
have disks with programs written in BASIC, COMAL, 
PASCAL, machine language, or any combination thensof. 
You'll have databases, letters created with different word 
processors, songs written with music processors, sprites 
made with sprite generators, pictures created with a va- 
riety of graphics packages, and data disks that track your 
progress with the very latest in adventure games. 

And all of them will have cryptic labels that list about 
three files! If you're lucky, diere might even be a semi- 
meaningfiil diskname. Something like WN!DDl.Ol iVrnte 
Now! Data Disk 1.01) And if you've been making safe- 
ties like you should, whew! 

Now for the good news! You, as beginners, are in the 
perfect position to nip this problem in the bud. Start out 
with some plan for labeling disks. Everyone who uses 
the computer should help come up with a logical system 
for organizing disks. I recommend using disknames that 
key the data to whatever disk was used to create it and 
then a general category type. 

For instance: 

WN! Personal Let.JA 

WN! Personal Let.FB 

WNIBusiness Let.Ol 
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BSWTom Creative.WR 
BSWSusan Book R.Ol 
BSWSusan Book R.02 
Ahoy! PRG Files.Ol 
CompuServe Down .01 
Cher PRG Games.Ol 

With a little imagination, these disknames can identi- 
fy the disk's information; V/Nl=Wriie Now!, Let=Let- 
ters, JA=January, FB^ftbruary, BSW^Bank Street Wir- 
er, WR-Writing, R=Reports, PRG=program files, 
Down = Downloaded files. Tom, Susan, and Cher are 
family members who regularly use the disk. 

It took me three days to organize the mess that six 
months of haphazard disk and file naming had created. 
Oh, how I wished someone had warned me to be organ- 
ized from the beginning. 

Even with organization, it can still be tough to find 
a particular file that you haven't looked at for months. 
A good disk catalog program will really help here. I've 
seen one that costs about $30 and includes an option to 
print labels. 

MACM 5's DISK CATALOG PROGRAM 

For my money, I'd get Access Software's Mach 5 cart- 
ridge instead. Although it doesn't print labels, its fea- 
tures are almost indispensible. Besides speeding up disk 
access, Mach 5 enables a catalog program that comes 
on disk. 



Another option lets you view or print a listing of the 
disks in a catalog (see figure 2). This is especially use- 
ful at the beginning of your catalog, since it lists how 
much free space each disk has. Ever wonder which of 
your disks has enough room for a 20 block file and spend 
half an hour swapping disks in and out to find one? With 
this program, you never will. 

To update a listing, you delete modified disks by en- 
tering their disknames. It isn't necessary to delete each 
file name; the program automatically finds each one as- 
sociated with a deleted diskname and removes it. Then 
you use the "Add a disk function" to update the files. 
There's even an option to change a diskname without 
having to reformat the whole disk (something I've seen 
no other program do). Even if you're a few months along 
in "haphazard" mode, it isn't too late to start getting or- 
ganized with Mach 5. 

One big hassle facing new drive users is learning the 
new, save, load, format, initialize, and validate com- 
mands. A disk provided with the drives contains a DOS 
(Disk Operating System) wedge that is supposed to make 
using these features easier. The wedge must be loaded 
before using it, however. Mach 5 has a built in DOS 
wedge, accessible from BASIC. Because it is on cart- 
ridge, though. Mach Ss DOS doesn't have to be loaded 
from BASIC. The command structure looks much like 
that of the Commodore DOS wedge, so the commands 
aren't confusing to more experienced users. 
Beginners may not be aware that before you can use 
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FIGURE 1 (top): a Mach 5-generateil disk directory. 
FIGURE 2 {right): list of disks in Mach 5 catalog. 

And is it a dandy! After creating a data disk for your 
catalog to reside on, you just swap in a disk whose di- 
rectory you want added to die catalog. Take that disk out 
and put the catalog data disk back in. That's about it. 

Each disk that you want added is swapped in. When 
you get them all entered, a sort routine in the program 
will alphabetize them. The printout looks great! (see fig- 
ure 1). Not only do you know where to find the file you're 
looking for, you can see how big it is. I usually keep 
a printout of the catalog in a binder, next to my disk fdes. 
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a disk with the Commodore drive, it must be formatted. 
This two-minute process requires typing the command 
Hne (in BASIC): 

PRINT#15,"NEWfj:NAME,ID" 

where "namcid" is the diskname and identification code. 
If the DOS wedge is loaded or the Mach 5 cartridge is 
in, you can type @ instead of PRINT#15. 

Even without its quick loading features, Mach 5 Is an 
excellent package. And at $34.95, it's a bargain, too. 

TIPS ON BUYING SOFTWARE 

Although I don't buy software often, there are a few 
tricks I've picked up along the way that I'll pass on to 
you. (Don't be surprised if they don't agree with any- 
thing you've heard elsewhere.) 

Before deciding to buy any "productivity" type soft- 
ware, check back issues of magazines for buyer's guides 
and indepth reviews. Make a list of the features you def- 
initely need and those you'd like to have if the price isn't 
too high. Be carefijl not to pay exorbitant prices for "bells 
and whistles" you don't need or want. 

Read as many current Commodore magazines as you 
can get your hands on. Don't be an indiscriminate read- 
er; look for useful buying information. Read magazines 
with a pen in your hand and a pile of note cards sitting 
next to you. If the family's decided to buy a word pro- 
cessing program in the next couple of weeks, make notes 
on all the pertinent advertisements: software name and 
manufacturer, what features are offered, asking price, 
page and magazine of advertisement. If you see a pack- 
age that interests you, look for the discounted price be- 
ing offered by mail order firms. 

Mind you, I didn't recommend buying it from a mail 
order company. Find a local dealer who doesn't mind 
letting you hang around the store. Hang around. Try out 
the software you're interested in. Try it on a system sim- 
ilar to yours. Be sure the package will work with your 
hardware combinations. What kind of printer, interface, 
modem, or input devices do you need? Does that soft- 
ware need a high resolution or low resolution light pen? 

While you're in the store, check the prices of disks. 
Even if you don't find the software you want, you can 
always use a few more disks and the store owner may 
be running a sale. You'd be surprised at the number of 
times I've walked out of a store empty-handed only to 
discover two days later that I had only one clean disk left. 

Before buying, compare prices realistically. 

Most mail order places now add a three to four per 
cent surcharge to credit card orders or a three to five 
dollar charge for COD. On top of that, there's a three 
dollar to five per cent shipping and handling charge. By 
the time you add it all up, you may only be saving a cou- 
ple of dollars. 

Then there's the waiting. If you buy software at a lo- 
cal store, it's yours when you walk out. You run right 
home and use it. Not so with mail order. If you pay by 
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check, there's a two week wait while it clears. Discoun- 
ters advertise some products that are not in stock, since 
magazine ads must be placed two to three months in ad- 
vance. A particularly popular package may be tempor- 
arily sold out, as well. Even if it is in stock, UPS gen- 
erally takes 5 to 8 days to deliver. 

Though mail order companies must ship your order 
within 30 days or inform you of the delay and offer to 
refund your money, they are not required to pay you in- 
terest on your money while they hold it. If there's a chance 
the software will come in a future shipment, they'll usu- 
ally advise you to wait another couple of weeks before 
requesting a refund. After all, it takes the accounting de- 
partment a couple of weeks to issue a refund check. 
For your two dollar savings, you've given away the op- 
portunity to take the software back to the store for a cred- 
it if it doesn't work. Since most local dealers want to keep 
your business, they'll try very hard to make you happy. 
Usually all you need do is bring the software back and 
show that it doesn't work on their computers, either. 

This may lead to finding you actually have a hardware 
problem, or it could get you another copy of the soft- 
ware. At the very least, if the software won't load, most 
stores will give you a credit against any other merchan- 
dise you want to buy. Refunds are almost unheard of, 
no matter where you buy. 

If you bought fix)m a discount house, you can be almost 
guaranteed hassles. Don't hold your breath while vrait- 
ing for most mail order houses to issue a return authori- 
zation number. Did I mention that you'll have to call on 
their user support line, so you get to pay long distance 
charges? 800 numbers are for orders only. When you do 
get permission to send it back, you go stand in line at 
the post office to send the package "Return receipt re- 
quested." This way you get back a post card that con- 
firms that software company "XYZ" got the software. 

And wait, and wait, and wait. 

After several weeks, you may get a package with an- 
other copy of the .software. If not, you call the company 
and hassle it out. 

With certain software manufacturers, this isn't neces- 
sary. They offer a warranty! You ship the faulty disks 
to their main office and they send you new ones that 
should work. Usually, it'll only cost you another five dol- 
lars more plus shipping. Don't forget "Return receipt re- 
quested." And should the problem be hardware related, 
the new disks won't work, either. 

So don't be so sure mail order is really cheaper. It may 
save a couple of dollars initially, but you'll probably pay 
for it in waiting time later. 

Buying software can be a harrowing exercise. The best 
protection against disappointment is research. Magazines 
are a good starting point, but personal recommendations 
from friends or members of the local user group can lead 
to bargains. Try before you buy is still the best guaran- 
tee of satisfaction, though. 

Next month, a few words about fans, furniture, and 
other fun stuff. D 



PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy.' Certoin Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 




n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
done computer. But before doing so, read this 
entire page carefully. 
To insure clear reproductions, Ahoyfs program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets f j. For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart @ . The code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a lower-case "s" 
or "c" followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c J], 



and SHIFT J by (s J]. 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, [5 "'[s EP]"] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g.. 22 spaces as [22 ""]■ 

Sometimes you'll find a program line that's too long 
for the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen tines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen lines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should not be typed in. See the instruc- 
tions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. D 

Call Ahoy! at 212-239-0855 with any problems. 
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IM PORTA MTI Letters on white background are Bug Repellent line codes Do not enter them! This and Ihe preceding explain these 
■ If I run mil l . codes and provide other essential information on entering Ahoy! programs Read these pages before entering programs 



BUG REPELLENT 

This program will Icl you debug any Ahoy! program. Follow in- 
structions for VIC 20 (casscue or disk! or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

Far CiisseHc: type in and save the fiw.t; RepeHeiu program, then 
type RUN 63000|RETURN|SYS828!RETURN|. !l you typed the 
program properly, it will generate a set of two-letter line codes that 
will match those listed to (he right of the respective program lines. 

Once you've got a working Buj^ Repeliem, type in the program 
you wish to check. Save it and type the RUN and SYS commands 
listed above once again, then compare the line cixlcs generated to 
tho.se listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to mcmorj' limitations 
on the VIC. the VIC Buk Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the cassette for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 6.1000 on. (Be sure the program you type doesn't include lines 
above 63000!) 

For clisk: enter But; Repellent, save it. and type RUN:NEW 
|RETURN|. Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list to the printer type OPEN 4.4:CMD 4;SYS 
828IRETURN). When the cur.sor comes back, type 
PRINT#4:CLOSE 4|RETURN]. 

63^//) F0RX=828T01023: READY :POKEX,Y:NEXT: END AC 

63001 DATA169,0, 133,63, 133,64, 165,43, 133,251 JL 

63002 DATA 165, 44, 133, 252, 160, 0,132, 254, 32, 228 DF 
63r/j3 DATA3, 234, 177, 251, 208, 3, 76, 208, 3, 230 OE 
63f/j4 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
63r/j5 DATA30, 203, 160,0, 177,251 , 170,230, 251 , 20 

8 KG 

63Vj6 DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 JJ 

63r/j7 DATA32, 210, 255, 169, 0,133, 253. 230, 254, 32 OK 

63008 DATA228, 3, 234, 165, 253, 160, 0,170, 177, 251 LG 

63r/j9 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 

63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 



,41 

63011 DATA240,74,74,74,74,24, 105,65,32, 210 

63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 

63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 

63014 DATAl, 208, 249, 230, 63, 208,-2, 230, 64, 230 

63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 

63016 DATA160,3,32,30,203,166,63,165,64,32 

63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 
1 

63018 DATA208,2,230,252,96,0,76,73,78,69 

63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 

63020 DATA32, 0,0, 0,0,0 

C-64 VERSION 
By Michael Kleinert and David Barron 

Type in. SAVI-. and RUN the Btii- Ripcllcni. Type Ni-;W. (hen 
type in or LOAD the .-iliiiy! pnigraiii you wish to check. When that's 
dv>ne. SAVE your program (don't RUN it!) and type SYS 49152 
IRETURNj. 

To pause the listing depress and hold the SHIFT key. 

Compare the cihIcs your machine generates to the c<Hles listed 
to the right of the respective program lines, 11 you spot a difference, 
jn error exists in that line. Jot down the number of lines where 
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contradictions occur. LIST each line, spot (he errors, and correct 
them. 

•5000 F0RX=49152TO49488: READY :POKEX,Y: NEXT: END GJ 
'5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 

•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

■5f/j3 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69.32 KN 

•5005 DATA35,32,0, 169,35, 160, 192,32,30, 171 CA 

•5f/j6 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 

• y/}7 DATA252 , 177 , 251 , 32 , 205 , 189 , 169 , 58 , 32 , 210 JE 
•50fj8 DATA255, 169, 0,1 33, 253, 230, 254, 32, 37, 193 CL 
•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 

• 5010 DATAl 77 , 251 , 208 , 237 , 165 , 253 , 41 , 240 , 74 , 74 MB 
•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 
•5012 DATA41, 15,24,105,65,32,210,255,169,13 GH 
•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 
•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 
•5015 DATA160, 192. 32, 30, 171, 166, 63, 165, 64, 76 BF 
•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 
•5017 DATAO, 169, 247, 160, 192, 32, 30, 171, 169, 3 PJ 
•5018 DATA 133, 254, 32, 228, 25 5, 201, 83, 240, 6, 201 FK 
•5019 DATA80, 208, 245, 230, 254, 32, 210, 255, 169, 4 FL 
•5020 DATA166, 254, 160, 255, 32, 186, 255, 169, 0,133 CL 
•5021 DATA63, 133, 64, 133, 2, 32, 189, 255, 32, 192 GC 
•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193, 96 NN 
•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 NH 
•5024 DATA96, 32, 205, 189, 169, 13, 32, 210, 255, 32 IM 
•5025 DATA204, 255, 169, 4, 76, 195, 255, 147, 83, 67 KC 
•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 DC 
•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 ML 
■5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 GN 
•5029 DATA113, 251, 69, 254, 170, 138, 76, 88, 192,0 JK 
•5030 DATAO, 0,0, 230, 251, 208, 2, 230, 252, 96' M 
•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2, 73 DM 
•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251, 201 JA 
•5033 DATA32, 208, 21 2, 198, 254, 76, 29, 193, 0,169 FM 
■5034 DATA13, 76, 210, 255, 0,0,0 PA 
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By Gordon F. Wheat 

Fhuikspceil will allow \ou to enter machine language Ahoy', pro 
grams without any mistakes. Once you have tvped the program in. 
save It for future use. While entering an ML program with 
Flaiikspeed there is no need to enter spaces or hit the carriage reiian. 
This is alt done automalicall_\ . II \oii make an error in a line a bell 
will ring and you will be asked to enter it again. To LO.-\D m a 
pnigram Sa\cd with Fhinkspeeil use LO.AD "name"'. 1. 1 for tape. 
or LOAD ■naine".8, 1 for disk. The tuiiction ke\ s ina\ tv used alter 
the starting and ending addresses have been entered, 
fl - SAVEs what you lia\e entered so far. 
f3-L0ADs in a program worked on previousl\. 
f5-To continue on a line you stopped on after LOADing in the 
previously saved work. 

17 -Scans through the program to locale a particular line, or to iTnd 
out where you sioppeit the last time you entered the program. 17 
ienipor;irily Iree/es the ouipul as well. 

•5 P0iCE53280,12:P0KE53281,ll • LL 

•6 PRINT"[CLEAR][c 8][RVS0N] [ 15" "]FLANKSPEED[ 

15" "]"; ED 

•10 PRINT"[RVS0N][5" " ]MISTAKEPROOF ML ENTRY P 

R0GRAMt6" "]" MC 

•15 PRINT"[RVS0N][9" "]CREATED BY G. F. WHEAT[ 

9" "]" DM 

•20 PRINT"[RVS0N][3" "]COPR. 1984, ION INTERNA 
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TIONAL INC. [3" "]" DH 

•30 FORA=54272T0542%:POKEA,0:NEXT IM 

•40 P0KE54272 , 4 : P0KE54273 , 48 : POKE54277 , : P0KE5 

4278,249:POKE54296,15 Nt) 

■70 F0RA=680TO699:READB:P0KEA,B:NEXT KO 

■75 DATA169, 251, 166, 253, 164, 254, 32, 216, 255, 96 HJ 
■76 DATA169, 0,166, 251, 164, 252, 32, 213, 255, 96 JB 
■80 B$="STARTING ADDRESS IN HEX":GOSUB2010:AD= 

B:SR=B HC 

■85 GOSUB2520:IFB=OTHEN80 FO 

■86 POKE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
■90 B$="ENDING ADDRESS IN HEX":G0SUB2010:EN=B 
■95 GOSUB2510:IFB=OTHEN80 
■96 P0KE254,T(2)+T(1)*16:B=T(4)+1+T(3)*16 
■97 IFB>255THENB=B-255:POKE254,PEEK(254)+l 
■98 POKE253,B:PRINT 
■100 REM GET HEX LINE 
■110 G0SUB3010: PRINT": 
■120 FORB=0T01:G0T0210 
'125 NEXTB 
■130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 

135 PRINT" [c P][LEFT.]"; 
■140 MEXTA:T=AD-(INT(AD/256)*256):PRINT" " 
■150 F0RA=0T07:T=T+A%(A) :IFT>255THENT=T-255 
■160 NEXT 

170 IFA%(8)<>TTHENGOSUB1010:G0T0110 

180 F0RA=0T07:P0KEAD+A,A7o(A):NEXT:AD=AD+8:G0T 

0110 

2(/} REM GET HEX INPUT 

210 GETA$:IFA$=""THEN210 

211 1FA$=CHR$(20)THEN270 

212 IFA$=CHR$(133)THEN4000 

213 IFA$=CHR$(134)THEN4100 

214 IFA$=CHR$(135)THENPRINT" 

215 IFA$=CHR$(136)THENPRINT" 
220 IFA$>"@"ANDA$<"G"THENT( B)=ASC( A$ )-55 : GOTO 
250 GM 
230 IFA$>"/"ANDA$<":"THENT(B)=ASC(A$)-48:G0T0 
250 LE 
240 G0SUB1100:G0T0210 LL 
250 PRINTA$"[c P][LEFT]'*; OA 
260 G0T0125 CG 
270 IFA>0THEN280 OP 
272 A=-1:IFB=1THEN290 OB 
274 G0T0140 CJ 
280 IFB=0THENPRINTCHR$(20);CHR${20);:A=A-1 HG 
285 A=A-1 BE 
290 PRINTCHR$(20);tG0T0140 KH 
3V; REM LAST LINE AD 
310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
320 FORB=OTOA~l:T=T+A%(B):IFT>255THENT=T-255 PL 
330 NEXT lA 
340 IFA%(A)<>TTHENGOSUB1010:G0T0110 KF 
350 F0RB=0T0A-1:P0KEAD+B,A%(B):NEXT HN 
360 PRINT :PRINT"Ydu ARE FINISHED !":G0TO4000 ON 
1000 REM BELL AND ERROR MESSAGES FL 
1010 PRINT :PRINT"LINE ENTERED INCORRECTLY": PR 
INT:GOT01100 DH 
1020 PRINT: PRINT"INPUT A 4 DIGIT HEX VALUE!": 
GOTO 1100 J A 
1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 
!":B=0:GOT01100 HD 
1040 PRINT :PRINT"ADDRESS NOT WITHIN SPECIFIED 

RANGE!": B=0:G0T01100 AG 

1050 PRINT :PRINT"NOT ZERO PAGE OR ROM!":B=0:G 
OTOllOO KN 



IF 
FP 
MN 
GE 
HN 
IL 
[ c P ] [ LEFT ] " ; : F0RA=0T08 FG 

MD 
ME 
LH 
IK 
PD 
LK 
lA 
FK 

MN 
AB 
HO 
GC 
MD 
KF 
:GOT04500 GE 

:G0T04700 BJ 



1060 PRINT"?ERR0R IN SAVE":G0T0n00 EI 

1070 PRINT"?ERROR IN LOAD" :G0T0n00 GL 

1080 PRINT; PRINT; PRINT"END OF ML AREA":PRINT PG 
1100 POKE54276,17:POKE54276,16:RETURN BH 

1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA 
$: RETURN IM 

2^/jO REM GET FOUR DIGIT HEX PC 

2010 PRINT: PRINTB$;:INPUTT$ GM 

2020 IFLEN(T$)<>4THENG0SUB1020:G0T02010 II 

2040 F0RA=1T04:A$=MID$(T$,A,1) :GOSUB2060:IFT( 
A)=16THENGOSUB1020:GOT02010 AD 

2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 
T(4): RETURN GF 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 

2070 IFA$>"/"ANDA$<";"THENT(A)=ASC(A$)-48:RET 
URN KP 

2080 T( A )=16: RETURN NP 

2500 REM A DRESS CHECK LI 

2510 IFAD>ENTHEN1030 MI 

2515 IFB<SR0RB>ENTHEN1040 MG 

2520 IFB<256OR(B>4O960ANDB<49152)ORB>53247THE 
N1050 MI 

2530 RETURN IM 

3f/j0 REM ADDRESS TO HEX EB 

3010 AC=AD:A=4096:GOSUB3070 HG 

3020 A==256:GOSUB3O70 CE 

3030 A=16:G0SUB3070 FN 

3040 A=l:GOSUB3070 MJ 

3060 RETURN IM 

3070 T=INT(AC/A) :IFT>9THENA$=CHR$(T+55) :G0T03 
090 CJ 

3080 A$=CHR$(T+48) JP 

3090 PRINTA$;:AC=AC-A*T: RETURN AC 

4000 A$="**SAVE**":G0SUB4200 AI 

4050 0PEN1,T,1,A$:SYS680:CL0SE1 LH 

4060 IFST=0THENEND EO 

4070 GOSUB1060:IFT=8THBNGOSUB1200 FJ 

4080 GOT04000 FF. 

4100 A$="**L0AD**":GOSUB4200 AB 

4150 OPEN1,T.O,A$:SYS690:CLOSE1 MF 

4160 IFST=64THEN110 JH 

4170 GOSUB1070:IFT=8THENGOSUB120O CM 

4180 GOT04100 FO 

4200 PRINT" ":PRINTTAB(14)A$ FG 

4210 PRINT :A$="":INPUT"FILENAME";A$ m 

4215 IFA$=""THEN4210 GF 

'4220 PRINT :PRINT"TAPE OR DISK?": PRINT DF 

4230 GETB$:T=1:IFB$="D"THENT=8:A$="§0:"+A$:RE 
TURN IG 

4240 IFB$<>"T"THEN4230 FN 

4250 RETURN IM 

4500 B$="CONTINUE FROM ADDRESS" :GOSUB2010:AD= 
B DK 

4510 GOSUB2515:IFB=:0THEN450O MA 

4520 PRINT :G0T01 10 01 

4700 B$="BEGIN SCAN AT ADDRESS" :GOSUB2010:AD= 
B 



FH 
NK 
DI 



4705 GOSUB2515:IFB=0THEN4700 

4706 PRINT :G0T04 740 

4710 FORB=fjT07:AC=PEEKCAD+B):G6SUB3030:IFAD+B 

=ENTHENAD=SR :GOSUB1080 : GOTOl 10 BK 

4715 PRINT" ";:NEXTB EC 

4720 PRINT: AD=AD+8 GN 

4730 GETB$:IFB$=CHR$(136)THEN110 MN 

4740 GOSUB3010: PRINT"; ";;GOT04710 JD 

AHOY! 87 



I M PflDT A MT( Letters on white background are Bug Repellent line codes Do not enter them! Pages 85 and 85 explain these codes 
I III r Un I nVt I ! and provide other essential information on entering Ahoy! programs. Refer lo these pages before entering any programs! 



DRAGON TYPE 

FROM PAOE 61 program i 

•10 REM PROGRAM 1 NA 
•20 PRINT"[CLEAR] [DOWN] [DOWN] LOADING MAC 

HIKE LANGUAGE" MP 
• 30 F0RI=49 152T049946 : READA : POKEI , A : NEXT : 

REM CHECKSUM=98881 CI 

•40 PRINT" [DOWN] LOADING DRAGON TYPE2" GP 

•50 LOAD"DRAGON TYPE2",8 HP 

•100 DATA32, 110, 193, 169, 205, 133, 128, 169 DN 

•101 DATA4, 133, 129, 169, 11, 141, 39, 208 EH 

•102 DATA141,40,208, 141,41,208, 169,1 NE 

•103 DATA141, 21, 208, 169,0,141,25,195 BP 

•104 DATA141,0,208,141,16,20B,141,26 CH 

•105 DATA195,169,85,141,203,194,173,23 BM 

•106 DATA195,141,206,194,169,11,141,207 KG 

•107 DATA194,32,38,193,169,15,141,248 KK 

•108 DATA7,169,0, 141,209, 194,32,154 PN 

•109 DATA 192, 201, 136,240,69,32,38,193 CE 

•110 DATA169, 0,141, 16, 208, 141, 0,208 EH 

•111 DATA24, 173, 203, 194, 105, 16, 201, 220 AH 

•112 DATA176,9,141,203,194,32,132,193 BN 

•113 DATA76,57,192,169,14,141,248,7 DB 

•114 DATA169, 0,141, 16, 208, 169, 164, 141 OJ 

•115 DATAO, 208, 169, 70, 141, 1,208, 169 NM 

•116 DATAO, 141, 39, 208, 169, 5, 141, 33 NK 

•117 DATA208,169, 13, 141,32,208,32,121 HN 

•118 DATA193,96,169,1,141,26,195,76 KF 

•119 DATA107,192,32,228,255,201,136,240 KK 

•120 DATA55, 201, 32, 144, 245, 141, 208, 194 GF 

•121 DATA32,217, 192,224, 1,240,235,201 LI 

•122 DATA91, 176, 231, 169, 14, 141, 248, 7 KK 

•123 DATA32,3,193,32,153,193,174,24 MO 

•124 DATA195,32,103,193,169,15,141,248 HA 

•125 DATA7,32,3, 193,173, 16,208,240 NJ 

•126 DATA201, 173,0,208,201,28, 144,194 MJ 

•127 DATA96, 172, 209, 194, 177, 128, 201, 32 CF 

•128 DATA144,27,56,237,208,194,240,11 LA 

•129 DATA238,25,195,32,197,193,162,1 AC 

•130 DATA76, 252, 192, 169,32, 145, 128, 238 JO 

•131 DATA209,194,I62,0,96,24,105,64 ON 

•132 DATA76, 226, 192, 169, 4, 141, 204, 194 GE 

•133 DATA238, 0,208, 173, 0,208, 141,0 DD 

•134 DATA208,208,5,169,1,141,16,208 NP 

•135 DATA162, 2,32, 103, 193, 206, 204, 194 FK 

•136 DATA173, 204, 194, 208, 227,96, 173, 203 EB 

•137 DATA194, 141, 1,208, 173, 207, 194, 141 HA 

•138 DATA205,194,169,4,141,204,194,238 FH 

•139 DATAO, 208, 174, 206, 194,32, 103, 193 EN 

•140 DATA206, 204, 194, 173, 204, 194, 208, 239 AJ 

•141 DATA173,248,7,201,13,208,6,238 GA 

•142 DATA248,7,238,248,7,206,248,7 LL 

•143 DATA206, 205, 194, 173, 205, 194, 208, 210 AO 

•144 DATA 96, 160, 255, 136, 208, 253, 96, 32 ID 

88 AHOY! 



• 145 DATA97 , 193 , 202 , 208 , 250 , 96 , 165 , 128 JD 

•146 DATA141, 211, 194, 165, 129, 141, 210, 194 ND 

•147 DATA96, 173, 211, 194, 133, 128, 173, 210 NE 

•148 DATA194,133,129,96,24,177,128,32 AA 

•149 DATA210,255,I05,64,165,128,105,80 JF 

•150 DATA133, 128, 165, 129, 105,0, 133, 129 GC 

•151 DATA96, 169, 15, 141, 0,212, 169, 85 OB 

•152 DATA141,24,212,169,18,141,1,212 KG 

•153 DATA169,65, 141,6,212,169,28, 141 IE 

•154 DATA5,212,169, 129, 141,4,212, 162 GA 

•155 DATA22, 32, 97, 193, 202, 208, 250, 169 AA 

•156 DATA128,141,4,212,96,169,0,141 EN 

•157 DATAO, 212, 169, 2, 141, 32, 208, 169 IG 

•158 DATA85, 141, 24, 212, 169, 38, 141,1 FA 

•159 DATA212,169,65.141,6,212,169,45 MK 

•160 DATA141, 5, 212, 169,33,141,4,212 BF 

•161 DATA162,45,32,97,193,202,208,250 LM 

•162 DATA169, 32, 141, 4, 212, 169,5,141 KB 

•163 DATA32,208,96, 160,255, 169,3,141 LA 

•164 DATA33, 208, 169, 14, 141, 32, 208, 200 PL 

•165 DATA185, 212, 194, 32, 210, 255, 201,0 PN 

•166 DATA208,245,169,163,160,40,32,210 LL 

•167 DATA255, 136,-208,250,32,110,193,162 MK 

•168 DATA200,32,103,193,169,157,133,128 FH 

•169 DATA169,5,133,129,169,0,141,16 JN 

•170 DATA208, 169,3, 141,0,208, 169,11 EN 

•171 DATA141,39,208,141,40,208,141,41 LG 

•172 DATA208,169,8,141,25,195,169,125 EP 

•173 DATA141,203,194,169,26,141,207,194 JC 

•174 DATA169,25,141,206, 194,169,0, 141 00 

•175 DATA209, 194, 162, 255,32, 103, 193, 206 LO 

•176 DATA25, 195, 173, 25, 195, 208, 243, 169 EP 

•177 DATAl, 141, 21, 208, 32, 38, 193, 169 KF 

•178 DATAl 5, 141, 248, 7, 162, 180, 32, 103 JI 

•179 DATA193, 169, 14,141,248,7,32,153 OH 

•180 DATA193, 172, 209, 194,32,243,192,32 LI 

•181 DATA3, 193, 162, 55,32, 103, 193, 169 DH 

•182 DATA15,141,248,7,32,3,193,162 GG 

•183 DATA80, 32, 103, 193, 173, 209, 194,201 NO 

•184 DATAO, 208, 214, 169, 13, 141, 248, 7 GK 

•185 DATA162, 100, 32, 103, 193, 169,8, 141 IB 

•186 DATA206,194,169,11,141,207,194,32 FN 

•187 DATA38, 193, 169, 1,141, 16, 208, 169 EA 

■188 DATA27, 141, 207, 194, 32, 38, 193, 32 FO 

•189 DATA121,193,96,125,0,0,8,27 CH 

•190 DATAO, 13, 32, 201, 147, 28, 29, 29 PB 

•191 DATA29,29,29,29,29,29,29,29 NO 

•192 DATA29,29,29,29,17,17,17,17 KC 

•193 DATA17, 17, 17, 17,68,82,65,71 EF 

•194 DATA79,78,32,84,89,80,69,13 PK 

•195 DATA13,29,29,29,29,29,29,29 FH 

•196 DATA29, 29, 29,29, 29,29,66,89 PH 

•197 DATA32,66,79,66,32,83,80,73 JD 

•198 DATA82,75,79,31,13,13,0,1 AC 

•199 DATAIO.O.O JF 



PROGRAM 2 



•10 REM PROGRAM 2 NH 

•20 PRINT" [DOWN] RUN" PC 

•30 N=99:DIMW$(N):SC=53280 DJ 

•100 FORJ=832T01022:READB:POKEJ,B:NEXT KH 
•130 POKE204O,13:POKE2041,14:POKE2042,15 ND 
•150 P0KE792,193:SYS49659 CK 

•155 FORI=OTON:READW$(I):NEXT CN 

•160 PRINT" [HOME] [15"[IX)WN]"][BLACK]"TAB( 
10)"CHOOSE TYPING SPEED[DOWN]" JJ 
•170 PRINrrAB(15)"[BLUE]l. FAST [ DOWN]" :PR 
INTTAB(15)"2. MEDIUM[D0WN]":PRINTTAB(15) 
"3. SLOW" LK 

190 GETA$:IFA$=""THEN190 HJ 

200 A=VAL(A$):IFA<10RA>3THEN190 DP 
210 P0KE49943,A:P0KE49944,A*30 KB 
500 PRINT" [CLEAR ][4"[ DOWN]"] [BLUE]": POKE 
SC,5:POKESC+l,15 DH 

510 F0RJ=1T09:A$="[4" " ] " : FORI=0TO6 : R=IN 
T(RND(0)*N) EL 

520 A$=A$+" "+W$(R):NEXT DN 

530 PRINTLEFT$(A$,35):PRINT:NEXT:P0KE198 
,0:T0=TI:SYS49152 NP 

540 T=(TI-T0)/3600:E=PEEK(49945) :P0KESC, 
5:P0KESC+l,13:S=INT(47/T+.5) NI 

545 IFPEEK(49946)THENS=0:E=0 CH 

550 SR=S*90-20*E:IFSR>HSTHENHS=SR NI 
560 S$=RIGHT$(STR$(S),2):E$=R1GHT$(STR$( 
E),2) CG 

565 SR$=RIGHT$(STR$(SR) ,4) :HS$=RIGHT$(ST 
R$(HS),4) KE 

570 PRINT" [CLEAR] [ BLUE] [ 12" [ DOWN ]"]"TAB( 
11)"SPEED [10"."]"S$ LJ 

580 PRINn"AB(ll)"[DOWN]ERR0RS[10"."]"E$ AD 
590 PRINTTAB(ll)"[DOWN]SC0RE[9"."]"SR$ BM 
600 PRINTTAB( 11)" [DOWN] HIGH SCORE [4"."]" 
HS$ MP 

610 PRINTTAB(8)"[4"[DOWN]"][RED][9"[c P] 
"]"SPC(7)"[8"[c P]"]" NL 

620 PRINTTAB(8)"[RVS0N] SPACE "SPC(7)" 

RETURN " KO 

630 PRINTrAB(8)"[D0WN][BLACK]C0NTINUE"SP 
C(10)"END" EH 

700 P0KE198,0 KB 

710 GETA$:IFA$=""THEN710 JP 

720 IFA$<>CHR$(13)ANDA$<>CHR$(32)THEN710 GL 
725 P0KE53269,0 PL 

730 IFA$=CHR$(32)THEN500 GD 

740 P0KE792,71:END KD 

1000 DATAO, 127, 128, 1,249, 192, 3, 248 KB 

1001 DATA224,3,255,231,3,255,253,35 NC 

1002 DATA255,255,33,255,192,64,243,254 ML 

1003 DATA64,112,0,32,120,0,33,252 MM 

1004 DATAO, 71, 252, 0,79, 254, 0,111 PB 

1005 DATA246,0,111,243,128,63,224,64 HI 

1006 DAT A31, 192, 0,7, 224, 0,30, 96 GL 

1007 DATAO, 48, 48, 0,60, 30, 0,21 IB 



1008 DATAl, 255, 0,3, 243, 128, 7, 241 PM 

1009 DATAl 92, 7, 255, 206, 7, 255, 250, 7 FB 

1010 DATA255, 254, 99, 255, 128,17,243,252 IB 

1011 DATA16, 112, 0,32, 120, 0,65, 248 FD 

1012 DATAO, 135, 248, 0,143, 252, 0,79 MB 

1013 DATA252, 0,111, 246, 0,63, 226,0 EO 

1014 DATA31,194,0,7,192,0,3,128 PJ 

1015 DATAO, 7, 0,0, 15, 224, 0,21 PG 

1016 DATAO, 127, 0,1, 249, 199, 3, 248 HM 

1017 DATA253,3,255,255,3,255,240,3 MM 

1018 DATA255, 224, 17, 255, 192,16,247,128 PA 

1019 DATA32, 115, 128, 32, 113, 128, 65, 248 CO 

1020 DATA192,71,248,96,79,252,0,111 KL 

1021 DATA246,0,111,243,128,63,224,64 HI 

1022 DATA31,192,0,7,224,0,30,96 GL 

1023 DATAO, 48, 048, 0,60, 30,0 NH 
2000 DATAKNIGHT, MAIDEN , KING , QUEEN , PRINCE 

, SWORD , ZEBRA , VISE , PEASANT , KNAVE LA 
2005 DATALANCE , BUCKET , QUILT , FLAGON , WIZAR 
D,BIRD,HUT, BRIDGE, PIKE, MAN AJ 

2010 DAT AHEX, CHILD, RIVER, CHEST, GOLD, SILV 
BR, COIN, CASTLE, TUNIC, SPEAR OP 

2015 DATAPATH, MAIL, JOKER, HELMET, FLASK, BE 
AST, ANIMAL, MAZE, BAY, LORD OC 

2020 DATATORCH , TABLE , CHAIR , STABLE , HORSE , 
BISHOP, JESTER, CROWN, GAME, BOOK BG 

2025 DATAYEOMAN, XEBEC, GORGE, PIT, SHIELD, A 
RMOUR, THIEF, YAM, COOK, SHOE FD 

2030 DATALI VER , MALLET , CART ,TAX , RAVINE , QU 
AIL, BOW, ARROW, HEN, FIRE I A 

2035 DATABABY, WINE, JEWEL, DUNGEON, KNIFE, S 
ERF, CROSS, DAMSEL, QUI VER, HAZE CP 

2040 DAT AVI PER, LION, DOG, CANDLE, WOLF, SHIP 
, LOG, GRATE, NUT, CANNON DN 

2045 DATAQUARRY , IBEX , KEY , KID , BAZAAR , CLOA 
K, GEM, LANTERN, STAG, SCARF NH 



AUTO-GEN 

FROM PAGE 59 



•K/jO PRINTSPC(15) 
■1010 PRINTSPC(13) 
■1020 PRINTSPC(13) 
•1030 REM CREATES 

MENTS CONTAINING 
•1040 : 
•1050 FL=0 

TION TO BE SAVED 
■1060 LL=0 

ION TO BE SAVED 
•1070 LN=1000 

NE NUMBER 
■1080 LB=0 

T NUMBER 
•1090 HB=0 

IT NUMBER 
•1100 HH=0 



"AUTO-GEN" EN 

"SEP[3" "]1, 1984" NE 
"DAVID A JONES" JF 
DISK FILE OF DATA STATE 
IMAGE OF MEMORY BM 

DI 
REM FIRST MEMORY LOCA 

GG 
REM LAST MEMORY LOCAT 

BC 
REM OUTPUT PROGRAM LI 

MB 
REM LOW BYTE OF 16 BI 

BH 
REM HIGH BYTE OF 16 B 

BO 
REM TEMP STORE FOR HE 
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XIDECIAML CONVERSION 



PD 



1110 MM=0 



NUMBER CONVERTED FROM STRING 



REM POINTER TO START 



REM OUTER LOOP COUNTE 



1120 ND=10 

EMS PER LINE 

1130 NL=2049 

OF NEXT BASIC LINE 

1140 X=0 

R 

1150 Y=0 

R 

1160 Z=0 

1170 C$="," 

1180 D$=CHR$(131) 

DATA" 

1190 S$=" " 

1200 FI$="" 

1210 NN$="" 

UT 

1220 X$="" 

G REPRESENTING 1 MEMORY LOCATION 

1230 : 



REM DECIMAL VALUE OF 



MA 



REM NUMBER OF DATA IT 



HC 



NG 



EE 



REM INNER LOOP COUNTE 

JE 
KEM DATA ITEM COUNTER MB 
REM COMMA LH 

REM BASIC TOKEN FOR " 

MG 
REM SPACE ML 

REM OUTPUT FILE NAME KI 
REM NUMBER STRING INP 

MP 
REM 4 CHARACTER STRIN 

AO 
DI 

1240 : REM MAIN PROGRAM AK 

1250 : DI 

1260 PRINT :INPUT"FIRST MEMORY LXATION"; 
NN$ CH 

1270 MM=VAL(NN$) CC 

1280 IF LEFT$(NN$,1)="$" THEN GOSUB 1830 AI 
1290 FL=MM NM 

1300 PRINT :INPUT"LAST MEMORY LOCATION" ;N 
N$ IN 

1310 MM=VAL(NN$) CC 

1320 IF LEFT$(NN$,1)="$" THEN GOSUB 1830 AI 
1330 LL=MM 00 

1340 PRINT :INPUT"STARTING LINE NUMBER" ;L 
N AH 

1350 PRINT :INPUT"NUMBER OF DATA ITEMS PE 
R LINE";ND EN 

1360 PRINT :INPUT"OUTPUT FILENAME" ;FI$ CM 
1370 : DI 

1380 OPEN 15,8,15 AM 

1390 OPEN 8,8,8,"0:"+FI$+",P,W" NJ 
1400 GOSUB 1920 GF 

1410 : DI 

1420 PRINT#8,CHR$(1);CHR$(8);: REM PROGR 
AM LOAD LOCATION AD 



REM MAIN LOOP 



1430 

1440 

1450 

1460 FOR X=FL TO LL STEP ND 

1470 NL=NL+2+2+l+4*ND+l 



DI 
BI 
DI 
KL 
JA 



1480 LB=NL-256*(INT(NL/256)): HB=INT(NL/ 
256) KL 

1490 PRINT#8,CHR$(LB);CHR$(HB);: REM NEX 
T BASIC LINE KG 



1500 LB=LN-256*(INT(LN/256)): HB=INT(LN/ 
256) OP 

1510 PRINT#8,CHR$(LB);CHR$(HB);; REM NEX 
T LINE NUMBER DE 

1520 PRINT LN;: REM SHOW USER WHAT'S HAP 



PENING 


FL 


1530 PRINT#8,D$;: REM DATA TOKEN 


BL 


1540 : 


DI 


1550 FOR Y=X TO X+ND-1: REM TO 9 = 10 




ITEMS 


MB 


1560 X$=RIGHT$("[4" "]"+STR$(PEEK(Y)) ,3) 


NM 


1570 : 


DI 


1580 FOR 1=1 TO 3 


IM 


1590 PRINT#8,CHR$(ASC(MID$(X$,I,1))); 


OE 


1600 NEXT I 


MN 


1610 : 


DI 


1620 Z=Z+1 


EB 


1630 IF Z<ND THEN PRINT#8,C$; 


lA 


1640 NEXT Y 


NN 


1650 : 


DI 


1660 PRINT#8,CHR$(0);: REM END OF LINE 1 




ERMINATOR 


AP 


1670 LN=LN+10 


OK 


1680 Z=0 


EH 


1690 GOSUB 1920 


GF 


1700 NEXT X 


NK 


1710 : 


DI 


1720 : REM ADD END OF PROGRAM TERMIN 




ATOR 


JM 


1730 : 


DI 


1740 PRINT#8,CHR$(0);CHR$(0); 


DK 


1750 CLOSE 8 


NI 


1760 GOSUB 1920 


GF 


1770 CLOSE 15 


AB 


1780 PRINT :PRINT"COMPLETE" 


BJ 


1790 END 


IC 


1800 : 


DI 


1810 : REM HEX TO DECIMAL 


EM 


1820 : 


DI 


1830 MM=0: HH=0 


DM 


1840 FOR X=2 TO LEN(NN$) 


CI 


1850 HH=ASC(MID$(NN$,(X),l))-48 


IP 


1860 MM=16*MM+HH+7*(HH>9) 


JO 


1870 NEXT 


lA 


1880 RETURN 


IM 


1890 : 


DI 


1900 : REM DISK I/O ERROR 


DG 


1910 : 


DI 


1920 INPUT#15,EN$,EM$,ET$,ES$: EN=VAL(EN 


$) 


IM 


1930 IF EN=0 THEN 1970 


10 


1940 PRINT"DISK I/O ERROR "; 


OM 


1950 PRINT EN$,EM$,ET$,ES$ 


PG 


1960 CLOSE 8: CLOSE 15: STOP 


NN 


1970 RETURN 


IM 
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MB 

)NM 
DI 
IM 
OE 
MN 
DI 
EB 
lA 
NN 
DI 

r 

AP 
OK 

EH 
GF 

: NK 

DI 

N 
JM 
DI 
DK 

' NI 
GF 
AB 
BJ 

I IC 

I DI 
EM 
DI 
DM 
CI 
IP 
JO 
lA 

I IM 

' DI 
DG 

I DI 

m 

! IM 

10 

OM 

PG 

I NN 

' IM 



MOXEY'S PORCH 

FROM PAOe 73 

•10 P0KE52,48:POKE56,48:CLR HJ 

•20 REM * MOXEYS PORCH * BY BOB BLACKMER NK 
•30 DIMMV( 136) :HS=0:A=2:B=39: 0=41 :MP$="MO 
XEYS PORCH" :PS=53270 PO 

• 40 V=53248 : S=54272 : M=56320 : POKEV+21 , 65 : P 
0KE53280 , 6 : POKE53281 , 1 1 : U=1401 MN 

•50 FORL=STOS+24:POKEL,0:NEXTL HA 

• 60 POKES+5 , 21 : POKES+1 , 20 : POKES+6 , 240: POK 
ES+4,17:GOSUB1110 AJ 

• 70 PRINT" [ CLEAR ] [ HOME ] [ DOWN ] [ DOWN ] [ R VSON 
][YELLOW]DO YOU WANT INSTRUCTIONS? (Y/N) 

DH 
•80 GETI$:IFI$=""THEN80 HD 

•90 IFI$="N"THEN300 IH 



■100 IFI$<>"Y"THEN80 



AD 



•110 PRINT" [CLEAR ][ HOME] "TAB( 11 )"[c 6] "MP 

$"[ DOWN] [DOWN]" KN 

•120 PRINT" [ DOWN ][ CYAN ]ENZO[ 7" "]JUST GOT 

A POGO STICK AND" GH 

•130 PRINTrAB(ll)"JUMPED OVER TO HIS NEIG 

HBORS" KP 

•140 PRINTTAB( 11) "MULTI-STEP FRONT PORCH. 

[3"[D0WN]"]" AI 

■150 PRINT"[YELL0W]M0XIE[6" "JDOESN'T LIK 

E THE MARKS" KA 

•160 PRINTTAB(H)"ENZO'S POGO STICK IS MA 

KING" JL 

•170 PRINTrAB(ll)"ON HIS PORCH. [3" [DOWN]" 

]" FN 

•180 PRINTTAB(3)"[c 8]T0 PLAY USE JOYSTIC 

K #2 AND MARK UP[5" "]ALL THE STEPS ON"; IE 
•190 PRINT" MOXIE'S P0RCH,":PRINTTAB(3)"W 

HILE TRYING TO AVOID MOXIE'S PURSUIT" CG 
•200 PRINrrAB(3)"[UP]IF SUCCESSFUL YOU AR 

E REWARDED WITH" BM 

•210 PRINrrAB(3)"AN0THER PORCH AND A FAST 

ER MOXIE.[ DOWN] [DOWN]" KJ 

• 220 POKEV+23 , 65 : POKEV+29 ,65: POKE2040 , P : P 

OKE2046,Q:POKEV+37,6:POKEV+38,5 CL 
•230 P0KEV,60:P0KEV+1,70 BG 

•240 POKEV+12,60:POKEV+13,110 FP 

•250 PRINTTAB(10)"[RVS0N][c 6]HIT ANY KEY 

TO BEGIN" :FORK=1T099:NEXTK ND 

•260 GETS$:IFS$=""THEN280 HF 

•270 IFS$<>""THEN290 OP 

•280 PRINTTAB(10)"[UP]HIT ANY KEY TO BEGI 

N[UP]":F0RK=1T099:NEXTK:G0T0250 EG 
•290 P0KEV+23,0:P0KEV4-29,0 CH 

•300 SL=0 lA 

•310 PRINT" [CLEAR] [HOME] [ 3" [D0WN]"]"TAB(7 

) "LEVEL (1-9)" GH 

•320 PRINT" [ DOWN ]"TAB( 7) "1 IS THE HARDEST 

EK 
■330 GETLV$:IFLV$=""THEN330 DO 

•340 IFLV$<"1"ORLV$>"9"THEN330 FD 



350 LV=VAL(LV$)+1 CI 

360 PRINT" [ CLEAR ] " : P0KE53272 , ( PEEK( 53272 
)AND240)+14 HE 

370 P0KE53282 , 2 : P0KE53283 , 7 : POKE53270 , PE 
EK(53270)OR16 HM 

380 X2=203:Y2=166:X1=157:Y1=102:U=1401 JD 
390 IFLV-1<1THENLV=2 CP 

400 LV=LV-1 MF 

410 PRINT"[H0ME]"TAB(12)"[3"[D0WN]"][CYA 
N]"MP$ AA 

420 GOT0450 CN 

430 JV=PEEK(M):FR=JVAND16 ON 

440 JV=15-(JVAND15): RETURN CG 

450 PRINT"[H0ME][7"[DOWN]"][c 6]" AH 
460 PRINTTAB(17)"#$" GM 

470 PRINTTAB( 16) "#%&$" KL 

480 PRINTTAB(15)"#%&%S$" 00 

490 PRINTTAB(14)"#%&%&%&$" DJ 

500 PRINTTABC 13) "#%&%&%&%&$" HI 

510 PRINTTAB(12)"#%&%&%&%&%&$" BH 
520 PRINTTAB(ll) "#%&%&%&%&%&%&$" FC 
530 PRINTTABC 10) "#%&%&%&%&%&%&%&$" GN 
540 PRINTTAB(9)"#%&%&%&%&%&%&%S%&$" HK 
550 PRINTTAB(8)"#%&%&%&%&%&%&7o&%&%S$" HJ 
560 PRINTTAB( 8 )"'('('('('('('('('('(": PO 
KES+24,15 BM 

570 F0RL=1T0136 STEP2 MJ 

580 POKES+4,17:POKES+l,55:POKES+4,16 LJ 
590 X2=X2+MV(L):Y2=Y2+MV(L+1) NB 

600 F0RG=LVT01STEP-1 HE 

610 K=1:G0SUB430 JF 

620 P0KE2040 , P : IFK<>LVTHENK=K+1 : G0T0620 BI 
630 POKE2046,Q ON 

640 REM ***NOTE*** LINES 650-660 MUST BE 

ENTERED USING ABBREVIATIONS NG 

•650 P0KEV,X1:P0KEV+1,Y1:IFPEEK(U)=37THEN 
POKEU,C:POKEU+l,C+l:SC=SC+l:P0KES+4,129: 
POKES+4,128 OM 

•660 POKEV, XI :P0KEV+1 , Yl : IFPEEK(U)=39THEN 
P0KEU,43:P0KEU+1,44:SC=SC+1:P0KES+4,129: 
POKES+4,128 HG 

•670 P0KEV+12,X2:P0KEV+13,Y2 KG 

•680 P=P+1:IFP>15THENP=13 IL 

•690 Q=Q+1:IFQ>199THENQ=198 OP 

•700 IFP=14THENP0KES+4, 129: POKES+4,128 JD 
•710 IFJV=4THENX1=X1-16:U=U-A:IFPEEK(U)=3 
2THENU=U+A:X1=X1+16 PO 

•720 IFJV=8THENX1=X1+16:U=U+A:IFPEEK(U)=3 
20RPEEK(U)=36THENU=U-A:X1=X1-16 BP 
•730 IFJV=5THENX1=X1-8:Y1=Y1-8:U=U-C:IFPE 
EK(U)=32THENU=U+C:Xl=Xl+8:Yl=Yl+8 EN 
•740 IFJV=6THENX1=X1-8:Y1=Y1+8:U=U+B:IFPE 
EK(U)=32THENU=U-B:Xl=Xl+8:Yl=Yl-8 JO 
•750 REM ***N0TE*** LINES 760-770 MUST BE 

ENTERED USING ABBREVIATIONS DO 

•760 IFJV=9THENX1=X1+8:Y1=Y1-8:U=U-B:IFPE 
EK(U)=320RPEEKCU)=36THENU=U+B:X1=X1-8:Y1 
=Yl+8 PM 
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•790 
•800 
-810 



■830 
'840 
■850 
■860 
•870 
'880 



■770 IFJV=ir/rHENXl=Xl+8:Yl=Yl+8:U=U+C:IFP 
EEK(U)=A00RPEEK(U)=32THENU=U-C:X1=X1-8:Y 
l=Yl-8 OC 

■780 IFSC=55THEN970 JM 

IFY1=Y2ANDX1-2=X2THEN810 AN 

NEXTG:NEXTL:G0TO570 CA 

POKEV+23 , 64 : POKEV+29 , 64 : POKES+4 , 1 7 : P 
OKES+6 , 240 : X2=180 : Y2=166 : P0KE2046 ,199 MJ 
•820 F0RL=1T099STEP2 KJ 

X2=X2+MV(L):Y2=Y2+MV(L+1) NB 

POKEV+12,X2:POKEV+13,Y2 KG 

P0KES+l,L+20 EL 

FORK=1T040:NEXTK MC 

NEXTL MO 

POKES+24 , : POKEV+23 , : POKEV+29 , : PRI 
NT"[CLEAR]":P0KEPS+2,21;P0KEPS,PEEK(PS)A 
ND239 BD 

•890 SUSL+SC*10:SC=0:PRINTSPC(12)"[YELL0 
W ] [ RVSON ] "MP$ : PRINTTAB( 1 1 ) " [ DOWN ] [ c 6 ] YO 
UR SCORE: [ YELLOW] ";SL JI 

•900 IFSL>HSTHENHS=SL BI 

•910 PRINTrAB(ll)"[DOWN][c 8]HIGH SCORE:" 

;HS JM 

• 920 PRINT" [ YELLOW ] [ RVSON ] [ DOWN ] [ DOWN ] [ RI 
GHT][ RIGHT] WOULD YOU LIKE TO PLAY AGAIN? 

(Y/N)" GD 

•930 GETF$:IFF$=""THEN930 JF 

• 940 IFF$="N "THENPOKEV+21 , : POKES+24 , 0; PR 
INT" [CLEAR]" -.END FC 

•950 IFF$<>"Y"THEN930 CC 

•960 G0T0300 BP 

• 970 POKEV+23 , 1 : POKEV+29 , 1 : POKES+4 , 1 7 : POK 
ES+6, 240 : X 1=1 70 :Y 1=166 01 

•980 F0RL=1T099STEP2 KJ 

•990 X1=X1+MV(L):Y1=Y1+MV(L+1) HF 

•1000 P0KEV,X1:P0KEV+1,Y1 GE 

P0KES+l,L+20 EL 

FORK=1T040:NEXTK MC 

NEXTL MO 

• 1050 POKES+24 , : POKEV+23 , : POKEV+29 , : PR 
INT" [CLEAR] " : POKEPS+2 , 21 : POKEPS , PEEK (PS) 
AND239 BD 

• 1060 PRINTTABC 1 2 ) " [ DOWN ] [ DOWN ] [ CY AN ] [ RVS 
ON ]"MP$:PRINTTAB( 13) "[DOWN] [YELLOW] SCORE 
:";SL:SC=0 BE 

•1070 IFLV-1<1THENLV=2 CP 

•1080 PRINTTABC 10) "[ YELLOW ][ DOWN ][ DOWN ]Y0 
U HAVE REACHED": PRINTTABC 14) "[DOWN] LEVEL 
:[c 6]";LV-1 CG 

•1090 F0RK=1T01500:NEXTK AP 

•1100 POKEPS, PEEK(PS)OR16:POKEPS+2,CPEEK( 
PS+2)AND240)+14:G0T0360 LH 

• 1 1 10 PRINT" [ CLEAR ] [ HOME ] [ 5" [ DOWN ] " ] [ YELL 
OW]I'M W0RKING[4"."]PLEASE BE PATIENT" MO 

•1120 P0KE56334, PEEK C 56334 )AND254:P0KE1,P 
EEK(1)AND251 BE 

•1130 FORI=OT057 MF 
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■ 1010 

• 1020 

' 1030 

1040 



1140 F0RJ=0T07 IC 

1150 POKE14336+I*8+J,PEEK(V+I*8+J) PM 
1160 NEXTJ:NEXTI NB 

1170 P0KE1,PEEK(1)0R4:P0KE56334,PEEK(563 
34)0R1 IE 

1180 CK=0:F0RCH=35T045 PB 

1190 F0RBY=0T07 NE 

1200 READ NU:CK=CK+NU IC 

1210 P0KE14336+(8*CH)+BY,NU JH 

1220 NEXT BY: NEXT CH GL 

1230 IFCK<>10450THENPRINT"ERR0R IN DATA- 
LINES 1300-1400": END DP 
1 240 CK=0 : F0RSU832T0894 : READQl : CK=CK+Q1 
: POKES l.Ql: NEXT NF 
1 250 F0RS2=896T0958 : READQ2 : CK=CK+Q2 : POKE 
S2,Q2:NEXT HB 
1 260 F0RS3=960T01022 : READQ3 : CK=CK+Q3 : POK 
ESS, Q3: NEXT JN 
1270 FORS4=12672T012734:READQ4:CK=CK+Q4: 
P0KES4,Q4:NEXT LJ 
1280 F0RS5=12736T012798:READQ5:CK=CK+Q5: 
P0KES5,Q5:NEXT:P=13:Q=198 OP 
1290 IFCK<>8699THENPRINT"ERROR IN DATA-L 
INES 1410-1800": END MK 
1300 CK=0:FORW=1T0136STEP2:READQ6,Q7:MV( 
W)=Q6:MV(W+1 )=Q7 :CK=CK+Q6+Q7 : NEXTW DA 
1310 IFCK<>OTHENPRINT"ERROR IN DATA LINE 
S 1810-1870": END OG 
1320 P0KEV+28,65:P0KEV+37,6:P0KEV+38,5:P 
OKEV+45 , : POKEV+39 ,15: RETURN PE 
1330 DATAO,0,0,0,2,10,42,170 CJ 
1 340 DATAO , , , , 1 28 , 160 , 168 , 1 70 MH 
1350 DATA106,90,86,85,85,149,165,169 KO 
1360 DATA171, 175, 191, 255, 255, 254, 250, 234 PI 
1370 DATA106,90,86,85,85,21,5,1 KL 
1380 DATA171, 175, 191, 255, 255, 252, 240, 192 DA 
1390 DATA104,90,86,85,85,149,165,169 PE 
1400 DATA43, 175,191,255,255,254,250,234 HM 
1410 DATA104,90,86,85.85,21,5,1 FB 
1420 DATA43, 175,191,255,255,252,240,192 AO 
1430 DATAO, 0,0, 0,0, 0,0,0 FG 
1440 DATA 0,0,0,0,0,0,0,0 FG 
1450 DATA 0,0,0,0,0,112,0,0 JP 
1460 DATA 136,0,1,4,0,0,112,0 ND 
1470 DATA 1,84,0,4,81,0,4,169 EA 
1480 DATA 0,1,36,0,0,32,0,1 KP 
1490 DATA 36,0,1,36,0,1,36,0 NN 
1500 DATA 1,36,0,1,36,0,0,168 HF 
1510 DATA 0,0,32,0,0,32,0 EK 
1520 DATA 0,0,0,0,0,0,0,0 FG 
1530 DATA 0,0,0,0,0,0,0,0 FG 
1540 DATA 0,0,0,112,0,0,136,0 GI 
1550 DATA 1,4,0,0,112,0,1,84 PO 
1560 DATA 0,4,81,0,4,169,0,1 NK 
1570 DATA 36,0,0,32,0,1,36,0 NC 
1580 DATA 1,36,0,1,36,0,1,36 CK 
1590 DATA 0,1,36,0,0,168,0 lA 
1600 DATA 0,0,0,0,0,0,0,112 JP 



IC 
PM 
NB 

IE 
PB 

NE 
IC 
JH 
GL 

DP 

NF 

HB 

JN 

LJ 

OP 

MK 

DA 

OG 

PE 
CJ 

IMH 
KO 
PI 

;kl 

DA 
PE 
HM 
FB 
AO 
FG 
FG 
JP 
ND 
EA 
KP 
NN 
HP 
EK 
FG 
FG 
GI 
PO 
NK 
NC 
CK 
lA 
JP 



IMPORTANT! '-^'J^rs on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
■ III I wi I inil I . and provjde other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



•1610 DATA 0,0,136,0,1,4,0,0 OK 

•1620 DATA 112,0,1.84,0,4,81,0 GC 

•1630 DATA 4,169,0,1,36,0,0,32 FF 

•1640 DATA 0,1,36,0,1,36,0,1 JG 

•1650 DATA 36,0,1,36,0,1,36,0 NN 

•1660 DATA 0,168,0,0,32,0,0,32 AH 

•1670 DATA 0,0,0,0,0,0,0 PD 

•1680 DAT AO, 0,0, 0,0, 0,0,0 FG 

•1690 DATAO, 0,0, 0,0, 0,0,0 FG 

•17r/j DATAO, 0,0,0,0,0,0,0 FG 

•1710 DATAO, 0,0, 0,42, 0,0, 170 LO 

•1720 DATA128,2,235,160,2,170,160,2 PG 

•1730 DATA2.55,224,2,17O,16O,0,17O,128 HC 

•1740 DATAO, 42, 0,0, 34, 0,2, 162 BC 

•1750 DATA160,0,0,0,0,0,0 GB 

•1760 DATAO, 0,0, 0,0, 0,0,0 FG 

•1770 DATAO, 0,0, 0,0, 0,0,0 FG 

•1780 DATAO, 0,0, 0,0, 0,0,0 FG 

•1790 DATAO, 0,0, 0,0, 0,0,0 FG 

•1800 DATAO,0,42,0,0, 170, 128,2 AC 

•1810 DATA235,160,2,170,160,2,255,224 JA 

•1820 DATA2, 191,160,0,170, 128,0,42 CK 

•1830 DATAO, 0,34, 0,2, 162, 160 LJ 
•1840 DATA-16, 0,-16, 0,-16, 0,-16, 0.-16, 0,8 

,-8,8,-8,8.-8,8.-8,-8,-8 GK 

•1850 DATA~8,-8.8,-8,8,-8,8,8,8,8,8,8,8,8 
,-8,8.-8,8,-16,0 JO 

•1860 DATA-16, 0,-16, 0,-8, 8, 16, 0,16, 0,-8, - 
8,-8,-8,8,-8,8,-8.8,-8 IL 

•1870 DATA8.8,8,8,8.8,8,8,-8,8,-8,8,-8.8, 
16,0,16,0,16,0 PD 

•1880 DATA16,0,-8,-8,-8,-8,-16,0,8,8,-8,8 
,-16,0,-16,0 PO 

•1890 DATA-16, 0,8, -8, 8, -8, -8, -8, 8, -8, -16, 
0,-16.0,-16.0.-8,8 GF 

•1900 DATA-8, 8, -8, 8, -8, 8, 16, 0,16, 0,16, 0,1 
6,0,8,-8,16,0,16,0,16,0 



"CHR$(157);:RETUR 



IJ 



J^ 



FILE LOCK 

FROM PACE 62 

•5 REM FILE LOCK V0222/85 
■10 GOTO 10000 
'50 POKE 198,0 

'52 GET A$:IF A$="" THEN GOTO 52 
'55 RETURN 

•70 REM WAIT FOR RETURN 
80 POKE 198.0: POKE 204.0 
85 GET A$:POKE 207,0: IF A$<>CHR$(13) THE 
N GOTO 85 DB 

90 POKE 204.1:PRINT " "CHR$( 157) ;: RETURN KP 
100 REM WAIT FOR KEY jj 

105 POKE 198,0: POKE 204,0 HG 

110 GET A$:POKE 207,0: IF A$="" THEN GOTO 
ll^J CM 



KI 
IE 
KB 
NH 
IM 
JL 
HG 



•115 POKE 204.1: PRINT " 

N KP 

•150 REM BOX ROUTINE Jj 

•152 GOSUB 190 CO 

•155 PRINT CHR$(117);:F0R 1=0 TO W-2:PRIN 

T CHR$(99);:NEXT I: PRINT CHR$(105); MC 
•158 FOR J=0 TO H-2:RW=RW+1: GOSUB 190 LI 
•160 PRINT CHR$(103);:F0R 1=0 TO W-2:PRIN 

T " ";:NEXT I: PRINT CHR$(104); FG 

•161 NEXT J MM 

•162 RW=RW+1: GOSUB 190 EF 

•165 PRINT CHR$(106);:F0R 1=0 TO W-2:PRIN 

T CHR$(99);:NEXT IrPRINT CHR$(107); PE 
•170 PRINT BL$;: RETURN EF 

•190 REM SET CURSOR LOCATIOM OH 

•195 POKE 214.RW:POKE 211.CL:SYS 58640:RE 

TURN AF 

•200 REM READ DIRECTORY HI 

•210 OPEN 15,8,15,"I0:":0PEN 2,8,2, "#" EI 
•220 TK=18:SC=1:NF=0 DO 

•230 PRINT#15,"U1";2;0;TK;SC LN 

•240 GET#2,A$:A$=A$+CHR$(0):T=ASC(A$) NL 
•250 GET#2,A$:A$=A$+CHR$(0):S=ASC(A$) AG 
•260 FOR F=0 TO 7: REM 8 ENTRIES/SEC LM 
•270 PRINT#15,"B-P";2;F*32+2 NK 

•275 GET#2.A$:IF A$="" THEN A$=CHR$CO) LB 
•280 A=ASC(A$):IF ASC(A$)=0 THEN GOTO 325 BK 
•285 L$=">":IF (A AND 64) =0 THEN L$="[SS 

]" OA 

•290 GET#2,A$:GET#2,A$ GE 

•300 F$=L$+"" ID 

•305 FOR 1=0 TO 15:GET#2,A$:IF A$="" THE 

N A$=CHR$(0) CD 

•310 IF ASC(A$)=160 THEN GOTO 320 BM 
•315 F$=F$+A$ 10 

•320 NEXT I MN 

322 FL$(NF)=F$:S(NF)=SC:EN(NF)=F:NF=NF+1 IP 



•325 NEXT F MI 

•330 IF TOO THEN TK=T:SC=S:G0TO 230 CJ 

•335 CL0SE2:CL0SE15 BI 

•340 NF=NF-1: RETURN lA 

•400 REM PRINT FORMATTED SCREEN KA 

•405 PRINT CHR$(147);:PRINT HD$: PRINT KD 

•410 RW=2:CL=0:H=20:W=19: GOSUB 150: BM 

•415 RW=2:CL=20:H=20:W=19: GOSUB 150 GC 

•450 REM FILL SCREEN WITH FILES EC 

•455 RW=3:CL=1: GOSUB 190:ZN=0 GE 

•460 FOR J=0 TO 18:I=PG*38+ZN*19+J CM 

•462 IF SF(I)=0 THEN PRINT FL$(I)r:G0T0 4 

64 OG 
•463 IF SF(I)=1 THEN PRINT RV$FL$(I)R0$; FM 

•464 RW=RW+1:G0SUB 190:NEXT J HF 

•465 RW=3:CL=21: GOSUB 190:ZN=1 MD 

•470 FOR J=0 TO 18:I=PG*38+ZN*19+J CM 

•472 IF SF(I)=0 THEN PRINT FL$(I);:GOTO 4 

74 PD 
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473 IF SF(I)=1 THEN PRINT RV$FL$(I)RO$; FM 

474 RW=RW+1:G0SUB 190:NEXT J HF 

475 ZN=0: RETURN EO 
500 REM SCRATCH KM 
510 NC$="SCRATCH FILES " KJ 
515 GOSUB 800 CI 

519 OPEN 15,8,15 AM 

520 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 5 
40 JB 
525 F$=FL$(I):IF LEFT$(F$,1)=">" THEN GO 
TO 540 KP 
530 F$=RIGHT$(F$,LEN(F$)-1) BL 
535 PRINT* 15, "SO :"F$: GOSUB 900 NM 
540 NEXT I MN 
550 CLOSE 15 AB 

599 RETURN IM 

600 REM LOCK MA 
610 NC$="[3" "]L0CK FILES " EB 
615 GOSUB 800 CI 

619 OPEN 15,8,15:0PEN 2,8,2,"#" EI 

620 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 6 
60 J I 
630 GOSUB 690 CP 
635 GET#2,A$:IF A$="" THEN A$=CHR$(0) LB 
640 FT=ASC(A$):FT=(FT OR 64) GK 
650 GOSUB 680 CO 
655 GOSUB 900 DB 
660 NEXT I MN 
670 CLOSE 2:CLOSE15:RETURN ON 
680 GOSUB 695:PRINT#2,CHR$(FT); DO 

684 PRINT#15,"B-P";2;0 AF 

685 PRINT#15,"U2";2;0;18;S(I):RETURN IJ 
690 PRINT#15,"U1";2;0;18;S(I) LP 
695 PRINT#15,"B-P"; 2;EN( I )*32+2: RETURN NM 

699 RETURN IM 

700 REM UNLOCK GE 
705 RW=1:CL=12: GOSUB 190 PA 

PROGRAMMERS! 

Ahoyf wishes to continue publishing the best 
Commodore-compatible programs available in 
magazines today. We're looking for games, utili- 
ties, educational, music, and graphics programs, 
and programs that completely defy description. If 
you have an original C-64, C-128, or VIC 20 pro- 
gram, in BASIC or machine language, we'd like 
to see it. Payment will be made upon acceptance, 
at competitive industry rates. You will also receive 
royalties based on the sale of our program disks. 

Send a copy of your program on disk or tape, 
accompanied by a printout and documentation, to 
Ahoy!, 45 West 34th Street— Suite 407, New 
York, NY lOOOL Include a self-addressed mailer 
with sufficient return postage affixed. (Program 
printouts not accompanied by a disk or tape will 
be returned unread; programs not accompanied 
by sufficient return postage will not be returned.) 



710 NC$=" UNLOCK FILES " KA 

715 GOSUB 800 CI 

719 OPEN 15,8,15:0PEN 2,8,2,"#" EI 

720 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 6 
60 JI 
730 GOSUB 690 CP 
735 GET#2,A$:IF A$="" THEN A$=CHR$(0) LB 
740 Fr=ASC(A$):FT=(Fr AND 191) JA 
750 GOSUB 680: GOSUB 900 KD 
760 NEXT I MN 
770 CLOSE 2:CL0SE15:RETURN ON 
800 REM SELECT FILES LL 

805 RW=1:CL=12:G0SUB 190: PRINT YL$NC$; HI 

806 RW=24:CL=0: GOSUB 190: PRINT CD$; KM 

807 RW=3:CL=18:G0SUB 190: PRINT AR$;:J=0 CE 

810 GOSUB 50 ' PP 

811 IF A$=CM$ THEN RETURN XL 

812 IF A$=CHR$(13) THEN GOSUB 820:G0T0 
810 EF 

813 IF A$=AR$ THEN GOTO 10000: REM EXIT A 



ND START OVER 

814 IF A$=CHR$(19) 



KN 



THEN GOSUB 190: PRINT 



" ";:G0SUB 1000: GOTO 805 
815 IF A$=CHR$(157) THEN GOSUB 



MO 



890: GOTO 



GF 



THEN GOSUB 840: GOTO 



DL 



860: GOTO 



GF 



880; GOTO 



810 

816 IF A$=CHR$(17) 
810 

817 IF A$=CHR$(145) THEN GOSUB 
810 

818 IF A$=CHR$(29) THEN GOSUB 
810 GM 

819 GOTO 810 CN 

820 TP=CL:CL=CL-17:I=PG*38+ZN*19-^J MP 

821 IFSF(I)=1THENGOSUB190:PRINTCHR$(146) 
FL$ ( CF-Hl ) ; : SF( I ) =0 : GOTO 824 EA 

823 IF SF(I)=0 THEN GOSUB 190: PRINT CHR$ 
(18)FL$(CF-Hl)CHR$(146);:SF(I)=l 00 

824 CL=TP: RETURN LM 

840 I=PG*38+ZN*19+J:IF I=NF THEN RETURN KD 

841 J=J+1:IF J>19 THEN J=19 

844 GOSUB 190: PRINT " "; 

845 RW=RW-i-l:IF RW>21 THEN RW=21:J=J-1 
850 GOSUB 190: PRINT AR$;: RETURN 

860 J=J-1:IF J<0 THEN J=0 

861 GOSUB 190: PRINT " "; 
865 RW=RW-1:IF RW<3 THEN RW=3 
870 GOSUB 190: PRINT AR$;: RETURN 



880 IF NF<PG*38-fl9 THEN RETURN 

885 GOSUB 190:PRINT " "; :RW=3:CL=38:J=0: 

ZN=1: GOSUB 190: PRINT AR$;: RETURN 

890 REM 

895 GOSUB 190:PRINT " *'; :RW=3:CL=18:J=0: 

ZN=0:G0SUB 190:PRINT AR$;:RETURN 

900 INPUT#15,A$,B$,C$,D$ 

905 RW=23:CL=0: GOSUB 190: PRINT "[38" "]" 



KJ 

JI 
EK 
KL 
PD 
JI 
EF 
KL 
LF 



FK 
JD 

KJ 
CN 

MO 

-910 RW=23:CL=0: GOSUB 190: PRINT A$"[SS]"B 
$" [ SS ] "C$" [ SS ] "D$ ; : ER=1 : RETURN MK 
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KA 
I CI 

EI 
6 

JI 

CP 
1 LB 
! JA 

KD 

MN 

ON 

LL 
, HI 

KM 
I CE 

PP 

IL, 


EF 

A 
KN 

It 

MO 
i GF 

ro 

DL 

ro 

GF 

to 

GM 

CN I 

MP 

I EA 

[1$ 
00 
LM 

N KD 

' KJ 
JI 
EK 
KL 
PD 

I EF 

KL 
LF 

FK 

, JD 

b: 

KJ 

CN 

h" 

MO 
|"B 

MK 



I M Pn RTA KITI •"^"^''^ °" w^*'*^ background are Bug Repellent line codes. Do not enter theml Pages 85 and 86 explain these codes 
IITir Uliinil I . and provide other essential information on enlefing4/ioy.' programs. Refer 10 these pages before entering any proqrams! 



920 ER=0: RETURN EN 

1000 IF NF<38 THEN RETURN IJ 

1005 PG=PG+1:IF PG*38>NF THEN PG=0 MF 
1010 GOSUB 400: RETURN QJ 

10000 CLR:DIM FL$(76) ,S(76),EN(76) ,SF(76 
) EP 

10005 BL$=CHR$(154):YL$=CHR$(158):RV$=CH 
R$(18):R0$=CHR$(1A6):AR$=CHR$(95) BE 
10010 POKE 53280, 11 :POKE 53281, 0:PRINT C 
HR$(147)BL$; ED 

10012 CD$=BL$+" <CRSR> <H0ME>"+YL$+" MO 
VBS "+BL$+" <RTRN>"+YL$+" SELECTS [SS]"+ 
BL$ EH 

10015 HD$=CHR$(18)+"[10" "]FILE LOCK V0[ 
3"2"]/85[12" "]"+CHR$(U6) NO 

10020 PRINT HD$; IG 

10030 PRINT: PRINT "INSERT DISK AND HIT " 
YL$"<RETURN>"BL$; LC 

10035 GOSUB 70: PRINT: PRINT "READING DIRE 
CTORY" : MR 

10040 GOSUB 200 :PG=0:ZN=0: GOSUB 400 NK 
10050 RW=24:CL=0: GOSUB 190 PG 

10055 PRINTYL$ "SCRATCH LOCK UNLOCK PAGE 
BOOT QUIT ? "BL$CHR$(157); IE 

10056 GOSUB 100 CJ 
10060 IF A$="Q" THEN END GE 
10065 IF A$="S" THEN PRINT A$; :CM$=A$:G0 
SUB 500: GOTO 10000 JL 
10070 IF A$="L" THEN PRINT A$; :CM$=A$:G0 
SUB 600: GOTO 10000 OJ 
10075 IF A$="U" THEN PRINT A$; :CM$=A$:GO 
SUB 700: GOTO 10000 GH 
10080 IF A$="B" THEN PRINT A$;:G0T0 ir/jO 

IH 

10085 IF A$="P" THEN PRINT A$;:GOSUB 100 
MG 

10090 GOTO 10050 IF 

60000 CLOSE 15:0PEN 15,8,15,"IO:":CLOSE1 

5 lA 

60001 SAVE "@fj:FILE LOCK V0[3"2"]",8 GA 

61000 OPEN 15.8,15:INPUT#15,A$,B$,C$,D$ GK 

61001 PRINT: PRINT A$"[SS]"B$"[SS]"C$"[SS 
]"D$:CL0SE15:ST0P AC 

ROCKEYS, BOATS & 
PIGS IN POKES 



FROMRAGEIS 



PIO IN A POKE 

IE 



•1 REM *** PIG IN A POKE *** 
•2 REM AN EXAMPLE OF GAME PROGRAMMING WIT 
H A SPRITE OE 

•4 REM ** MOVE TOP OF MEMORY TO MAKE ROOM 

FOR VIDEO BLOCK AT 32768 CA 

•5 POKE 55, 255: POKE 56, 127: POKE 643,255:? 



! entering any programs! 

OKE 644,127 KG 

9 REM *** SET-UP SUBROUTINES *** OF 

10 GOSUB 600: REM (VIDEO MEMORY) II 

11 GOSUB 700: REM (BACKGROUND STRING) BM 

12 GOSUB 800: REM (SPRITE SHAPES) PB 

13 GOSUB 900: REM (SPRITE POSITIONS) IE 
15 GOTO 100 CF 
98 REM *** ACTION LOOP *** KJ 
100 K=KP(PEEK(653)):IF K>2 OR EG=1 THEN 
300 NO 
105 IF K>1 THEN 130 AG 
110 HP=HP+K(K):IF HP<0 THEN HP=HZ HE 
115 IF HP>HZ THEN HP=0 KM 
120 IF KOXK THEN XK=K:P0KE LT(0),ST(XK) KN 
125 POKE HT(0),HH(HP):P0KE HR,HB(HP) AO 
130 IF VAL(TI$)>=DT THEN GOSUB 500 EB 
135 IF PEEK(CF)>0 THEN GOSUB 400 NA 
196 GOTO 100 CF 
198 REM *** WAIT FOR RESPONSE *** HO 
296 RETURN IM 
298 REM *** ENDING ROUTINES *** NL 
300 PRINT "[CLEAR] FINAL SCORE: "RT*^/^!- 
VP*10: PRINT: PRINT :VP=15: POKE VT(0),VV(VP 

) NM 
310 PRINT "TO PLAY AGAIN, PRESS P": PRINT 

"TO QUIT, PRESS Q":HP=79 
315 HP=79:P0KE HR,HB(HP) :P0KE HT(0),HH(H 

P):XP=1:P0KE LT(0),ST(XP) .]; 

320 Z=PEEK(203):IF Z=62 THEN 370 F 
325 POKE HT(0),HH(HP):P0KE HR,HB(HP) 

330 HP=HP+1:IF HP>HZ THEN HP=0 vj 

345 IF Z041 THEN 320 PF 
350 EG=0 : DL=0 : DT=1 : DS=5 : RT=.0 : RC=0: GOSUB 

930: GOTO 100 aK 

369 REM ** PUT VIDEO MEMORY BACK TO FIRS 

T BLOCK, AND SCREEN MEMORY TO 1024 EG 

370 POKE 56578, PEEK ( 56578) 0R3: POKE 56576 
,(PEEK(56576)AND 252)OR 3 MB 

371 POKE 53272, 20: POKE 648,4 OM 

379 REM ** REENABLE SHIFT/COMMODORE AND 
RUN-STOP/RESTORE FB 

380 POKE 657,0:POKE 792,71:P0KE 808,237 PK 
390 END IC 

398 REM *** COLLISION HANDLER *** IG 

399 REM ** END GAME? CE 

400 VP=VP-1:IF VP<0 THEN EG=1: RETURN PN 

401 REM ** MOVE UP NJ 

402 POKE VT(0),VV(VP) MD 

403 REM ** CLEAR COLLISION REGISTER BF 

404 Z=PEEK(CS):Z=PEEK(CF) KI 

405 REM ** NEW COLLISION? ON 

406 IF PEEK(CF)>0 THEN 400 FC 
496 RETURN IM 

498 REM *** SCROLL ROUTINE *** JF 

499 REM ** NEW ROW OR SIMPLE JUMP? PJ 

500 IF RC=DS THEN 506 NB 
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501 REM ** SIMPLE JUMP NJ 

502 PRINT "[HOME] [25" [DOWN]"] [HOME]"; OJ 

503 RC=RC+1:G0T0 520 CK 

505 REM ** PUT NEW ROW ON SCREEN BG 

506 PRINT "[H0ME][2A"[D0WN]"]"MID$(WS$,W 
L(DL)+INT(19*RND(9)),40)"[HOME]"; PL 

508 RC=0:RT=RT+1:DL=DL+1:IF DL>8 THEN DL 
=0:DS=DS-1 AJ 

509 REM ** END OF GAME? LE 

510 IF RT>49 THEN EG=1 GG 
520 IF PEEK(CF)>0 THEN GOSUB 'lOOiREM ** 
COLLISION KN 
580 POKE 217, LI: POKE 218, L2 PJ 

589 REM ** RESET TIMER NP 

590 TI$="[6"0"]" NI 
596 RETURN IM 

598 REM *** ARRANGE MEMORY *** KB 

599 REM USE THIRD VIDEO BLOCK (32768 TO 
A9151), SO ROM CHARACTER SET IS USABLE. AL 

600 VB=32768:P0KE 56578, PEEK (56578)0R3:P 
OKE 56576, (PEEK(56576)AND 252)0R 1 CN 

601 REM ** TELL VIC-2 WHERE SCREEN IS WI 
THOUT CHANGING CHARACTER SET LOCATION GA 

602 SB=0:POKE 53272, (SB*16)+4:SB=VB+1024 
*SB MO 

603 REM ** TELL BASIC WHERE SCREEN IS GB 

604 BB=SB/256:POKE 648, BE AK 

608 REM *** REGISTER ADDRESSES *** EJ 

609 REM ** SPRITE SHAPE LOCATION TABLE IF 

610 LT(0)=SB+1016:F0R 1=1 TO 7:LT(I)=LT( 
I-1)+1:NEXT AF 

611 REM ** SPRITE COLOR TABLE LA 

612 CT(0)=53287:F0R 1=1 TO 7:CT(I)=CT(I- 
1)+1:NEXT AN 

613 REM ** SPRITE HORIZONTAL POSITION TA 
BLE (LOW BYTES) CH 

614 HT(0)=53248:F0R 1=1 TO 7:HT(I)=HT(I- 
1)+2:NEXT KC 

615 REM ** SPRITE VERTICAL POSITION TABL 

E IJ 

616 VT(0)=53249:FOR 1=1 TO 7:VT(I)=VT(I- 
1)+2:NEXT A J 

617 REM ** SPRITE HORIZONTAL HIGH-BIT RE 
GISTER IG 

618 HR:=53264 FB 

619 REM ** SPRITE ENABLE REGISTER AP 

620 ES=53269 FE 

621 REM ** VERTICAL EXPANSION REGISTER ( 
1=D0UBLE HEIGHT) IB 

622 VE=53271 GC 

623 REM ** HORIZONTAL EXPANSION REGISTER 
(1=D0UBLE WIDTH) PL 

624 HE=53277 FC 

625 REM ** SPRITE PRIORITY REGISTER (1=S 
PRITE IS IN FRONT OF FOREGROUND) GM 

626 PR=53275 FJ 

627 REM ** MULTICOLOR ENABLE REGISTER (1 
=MULTI-COLOR ENABLED) IM 
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628 EM=53276 EK 

629 REM ** SPRITE MULTICOLOR COLOR REGIS 
TERS OH 

630 MR=53285:REM ('01' REGISTER: ADD 1 T 

MR FOR 'ir REGISTER) LJ 

631 REM ** SPRITE-SPRITE COLLISION REGIS 
TER OF 

632 CS=53278 GA 

633 REM ** SPRITE-FOREGROUND COLLISION R 
EGISTER MD 

634 CF=53279 FK 

635 REM ** SET-BIT AND CLEAR-BIT VALUES BI 

636 BS(0)=1:F0R 1=1 TO 7:BS(I)=2*BS(I-1) 
:NEXT NE 

637 FOR 1=0 TO 7:BC(I)=255-BS(I):NEXT LB 

638 REM *** INITIALIZE VALUES *** DK 

639 REM ** FOREGROUND COLOR FL 

640 POKE 53281, 9: PRINT "[CLEAR] [c 2]";:R 
EM (BROWN) BC 

641 REM ** BACKGROUND COLOR DK 

642 POKE 53281,5 :REM (GREEN) GM 

643 REM ** BORDER COLOR BE 

644 POKE 53280, 9:REM (BROWN) LM 

645 REM ** SPRITE COLORS (DEFAULTS: WHI, 
RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY) IE 

646 POKE CT(0),4:REM (THE PIG IS WHITE) FI 

647 REM ** SET PRIORITY EF 

648 POKE PR, 0: REM (ALL IN FRONT) OD 

649 REM ** SET HORIZONTAL SIZES BJ 

650 POKE HE, 0: REM (ALL NORMAL WIDTH) AL 

651 REM ** SET VERTICAL SIZES CC 

652 POKE VE,0:REM (ALL NORMAL HEIGHT) PK 

653 REM ** ENABLE SPRITES OD 

654 POKE ES,BS(0):REM (SPRITE ONLY) KB 

689 REM *** SAFETY PROCEDURES *** CM 

690 POKE 657, 128: REM DISABLE SHIFT/COMMO 
DORE CHARACTER SET SWITCH OA 

691 POKE 808, 234: POKE 792, 193: REM DISABL 

E STOP AND STOP/RESTORE JJ 

696 RETURN IM 

698 REM *** BACKGROUND STRING *** FD 
700 WC$="[s V]":BC$=" " IH 

709 REM SET UP WALL STRING GA 

710 FOR 1=1 TO 12 MP 

714 REM EACH WALL UNIT IS WIDER, EACH GA 

P NARROWER CD 

715 FOR J=l TO 5+1 :WS$=WS$+WC$: NEXT EA 
720 FOR J=l TO 15-1 :WS$=WS$+BC$: NEXT GK 
725 NEXT lA 

729 REM SET WALL STARTING POINTS JM 

730 WL(0)=1;F0R 1=1 TO 9:WL(I)=WL(I-l)+2 
0:NEXT PD 

739 REM SET DIFFICULTY LEVELS (DL=SPACIN 
G; DT=TIMING; DS=VERTICAL SPACING) PI 

740 DL=0:DT=1:DS=5 OJ 
796 RETURN IM 

798 REM *** SPRITE SHAPES *** CD 

799 REM ** NUMBER OF SPRITE SHAPES (-1); 



} 



BC 

I DK 

GM 

BE 

LM 

IE 
FI 

EF 
OD 
BJ 
AL 
CC 
PK 
OD 
KB 
CM 

10 
OA 

JL 
JJ 
IM 
FD 

1 IH 

I GA 
MP 

' CD 
EA 
GK 
lA 
JM 

I PD 

IN 

PI 

. OJ 

IM 

CD 



I NUMBER OF LINES PER SPRITE SHAPE (-1) CE 

I -800 NS=1:TS=9 GK 

^ -801 REM ** LOCATE SPRITE SHAPE MEMORY OM 

•802 ST(0)=I6:F0R 1=1 TO NS:ST(I)=ST(I-n 

+1:NEXT HM 

•803 REM ** LOOPS HL 

•804 FOR 1=0 TO NSrFOR J=0 TO TS:READ SS$ 

:FOR K=0 TO 2:X=0:Y=VB+ST(I)*64+J*3+K IB 
•805 REM ** CONVERT STRINGS TO SHAPE BYTE 
S (USE BS(0-7) TO SET BITS) LA 

•806 FOR L=l TO B:M=L+8*K:M=ASC(MID$(SS$, 
M,I)):IF M=42 THEN X=X OR BS(8-L) KC 
•807 NEXT: POKE Y,X: NEXT: PRINT SS$:NEXT GO 
•808 Z=64-(TS*3+2):F0R J=Y+1 TO Y+Z:POKE 
J, 0: NEXT: NEXT PF 

•809 REM SPRITE SHAPE DATA, 21 LINES PER 

SHAPE: *='0N' .='0FF' MJ 

•810 DATA "[ 5". "]*[ 14". "]**.." HG 

•811 DATA "[5"."]**[4"."][6"*"][5"."]* '• GO 
•812 DATA "[4"."][16"*"].*.." 
•813 DATA "[3"."]*.[16"*"][3" "1" 
•814 DATA "[22"*"].." 
•815 DATA "[22"*"].." 
•816 DATA "[4"."][17"*"][3"."]" 
•817 DATA "[6"."j[14"*"][4"."]" 
•818 DATA "[6"."]**.*[5"."]*.**[5" 



It 1 M 



IG 
MG 
LK 
LK 
HO 
HC 
AC 



•819 DATA "[5"."]**..**[3"."]**.**[5"."]" DC 



•820 REM ** 2ND SHAPE 

•821 DATA ".**[14"."]*[6"."]" 

"*[5"."][6"*"][4"."]**[6"."]" 

".*.[16"*"J[5"."]" 
•824 DATA ". . [ 16"*"] .*[4"."]" 
•825 DATA ".[22"*"]." 
•826 DATA ".[22"*"]." 
•827 DATA ". . [17"*"] [5","]" 
•828 DATA "[3"."] [14"*"][7"."]" 
•829 DATA "[4"."]**.*[5"."]*.**[7"."]" 
•830 DATA "[4". "]**.**[3". "]**.. **[6 



•822 DATA 
•823 DATA 



CL 
JG 
FO 
MG 
IG 
BK 
BK 
HO 
KC 
MC 
]"0C 



•896 RETURN IM 

•898 REM *** SPRITE POSITIONS *** KA 
•899 REM ** POSSIBLE POSITIONS DIM 'ED MK 
•900 VZ=19:HZ=147:DIM HH(HZ), VV(VZ),HB(HZ 

> EJ 

•901 REM ** ASSIGN HORIZONTAL VALUES I A 
•902 X=24:B=0:FOR 1=0 TO HZ:HH(I)=X:HB(I) 

=^ ML 

•903 X=X+2:IF X>255 THEN X=X-256:B=1 DP 
•904 NEXT lA 

•905 REM ** ASSIGN VERTICAL VALUES LF 
•906 X=53:F0R 1=0 TO VZ:VV(I)=X:X=X+8:NEX 

■^ JN 

•919 REM ** KEYPRESS MATRIX EO 

■920 DIM KP(7),K(2) JA 

•921 FOR 1=0 TO 7:KP(I)=2:NEXT:KP(1)=1:KP 

(2)=0:KP(7)=3 ML 

•922 K(0)=-1:K(1)=1:K(2)=0 BK 

•929 REM ** INITIAL SPRITE POSITIONING 10 
•930 HP=79:VP=VZ:XK=1 MH 



•931 POKE VT(0),VV(VP):P0KE HT(0),HH(HP) : 

POKE HR,HB(HP) aC 

•939 REM ** TELL VIC-2 WHERE TO FIND SPRI 

TE SHAPE HK 

•940 POKE LT(0),ST(XK) hF 

•949 REM ** CREATE SCREEN DISPLAY ED 
•950 PRINT "[CLEAR]";: FOR 1=0 TO 5: FOR J= 

TO DS: PRINT "[DOWN]"; :NEXT IF 

•955 PRINT MID$(WS$,1+INT(19*RND(9)),40): 

: NEXT: PRINT "[HOME]"; OK 

•959 REM ** CLEAR SCREEN LINE LINK TABLE KP 
•960 L1=PEEK(217)0R 128:L2=PEEK(218)0R 12 



8:P0KE 217,L1:P0KE 218, L2 
•969 REM ** CLEAR COLLISION REGISTERS 
•970 Z=PEEK(CF):Z=PEEK(CS) 
•989 REM ** SET CLOCK 
■990 TI$="[6"0"]" 
•996 RETURN 



DN 
GC 
lA 
EI 
NI 
IM 



BASIC SPRITES 

1 REM *** BASIC SPRITES *** QC 

2 REM A SHIP AND A ROCKET DEMONSTRATE SP 



RITE CREATION AND MOVEMENT 

9 REM *** SET-UP SUBROUTINES *** 

10 GOSUB 600:REM (VIDEO MEMORY) 

11 GOSUB 700: REM (BACKGROUND) 

12 GOSUB 800: REM (SPRITE SHAPES) 

13 GOSUB 900: REM (SPRITE POSITIONS) 
15 GOTO 100 

98 REM *** ACTION LOOP *** 
100 VP=VP+1:IF VP>VZ THEN VP=0 
110 HP=HP-1:IF HP<0 THEN HP=HZ 
120 POKE VT(1),VV(VP) 

130 POKE HT(0),HH(HP):POKE HR,HB(HP) :POK 
E HT(1),HH(HP) 

140 WV=WV-1:IF WV<1 THEN WV=8 
150 PRINT DD$MID$(ST$,WV,40)"[H0ME]": 
196 GOTO 100 

198 REM *** WAIT FOR RESPONSE *** 
296 RETURN 

298 REM *** ENDING ROUTINES *** 
300 PRINT "[CLEAR] FINAL SCORE: "RT*10r>+ 
VP*10:PRINT:PRINT:VP=15:P0KE VT(0),VV(VP 

) NM 

■310 PRINT "TO PLAY AGAIN, PRESS P": PRINT 

"TO QUIT, PRESS Q":HP=79 JE 

•315 HP=79:POKE HR,HB(HP) :POKE HT(0).HH(H 

P):XP=1:P0KE LT(0),ST(XP) jM 

•320 Z=PEEK(203):IF Z=62 THEN 370 EA 
•325 POKE HT(0),HH(HP):P0KE HR,HB(HP) AO 
•330 HP=HP+1:IF HP>HZ THEN HP=0 FJ 
•345 IF Z041 THEN 320 PE 

•350 EG=0:DL=0:DT=1:DS=5:RT=0:RC=0:GOSUB 
930: GOTO 100 aK 

•369 REM ** PUT VIDEO MEMORY BACK TO FIRS 
T BLOCK, AND SCREEN MEMORY TO 1024 EG 

•370 POKE 56578, PEEK(56578)0R3:P0KE 56576 
,(PEEK( 56576) AND 252)0R 3 MB 
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MN 
OF 
II 
AA 
PB 
IE 
CF 
KJ 
BH 
GG 
LO 

LP 
EG 
CI 
CF 
HO 
IM 
NL 






371 POKE 53272, 20:P0KE 648,4 OM 

379 REM ** REENABLE SHIFT/CO^WODORE AND 
RUN-STOP/RESTORE FB 

380 POKE 657,0:P0KE 792,71 :P01CE 808,237 PK 
390 END IC 

598 REM *** ARRANGE MEMORY *** KB 

599 REM USE FIRST VIDEO BLOCK (0 TO 1638 

3) SO NOTHING FANCY HAS TO BE DONE. ME 

600 VB=0 HP 

601 REM ** SCREEN MEMORY STAYS WHERE IT 

IS LK 

608 REM *** REGISTER ADDRESSES *** EJ 

609 REM ** SPRITE SHAPE LOCATION TABLE IF 

610 LT(0) =2040: FOR 1=1 TO 7:LT(I)=I.T(I-1 
)+l:NEXT HP 

611 REM ** SPRITE COLOR TABLE LA 

612 CT(0)=53287:FOR 1=1 TO 7:CT(I)=CT(I- 
1)+1:NEXT AN 

613 REM ** SPRITE HORIZONTAL POSITION TA 
BLE (LOW BYTES) CH 

614 HT(0)=53248:FOR 1=1 ;0 7:HT(I)=HT(I- 
1)+2:NEXT KC 

615 REM ** SPRITE VERTICAL POSITION TABL 

E IJ 

616 VT(0)=53249:F0R 1=1 TO 7:VT(I)=VT(I- 
1)+2:NEXT A J 

617 REM ** SPRITE HORIZONTAL HIGH-BIT RE 
GISTER IG 

618 HR=53264 FB 

619 REM ** SPRITE ENABLE REGISTER AF 

620 ES=53269 FE 

621 REM ** VERTICAL EXPANSION REGISTER ( 
1=D0UBLE HEIGHT) IB 

622 VE=53271 GC 

623 REM ** HORIZONTAL EXPANSION REGISTER 
(UDOUBLE WIDTH) PL 

624 HE=53277 FC 

625 REM ** SPRITE PRIORITY REGISTER (1=S 
PRITE IS IN FRONT OF FOREGROUND) GM 

626 PR=53275 FJ 

627 REM ** MULTICOLOR ENABLE REGISTER (1 
=MULTI-COLOR ENABLED) IM 

628 EM=53276 EK 

629 REM ** SPRITE MULTICOLOR COLOR REGIS 
TERS OH 

630 MR=53285:REM ('01' REGISTER: ADD 1 T 

MR FOR '11' REGISTER) U 

631 REM ** SPRITE-SPRITE COLLISION REGIS 
TER OF 

632 CS=53278 GA 

633 REM ** SPRITE-FOREGROUND COLLISION R 
EGISTER MD 

634 CF=53279 FK 

635 REM ** SET-BIT AND CLEAR-BIT VALUES BI 

636 BS(0)=1:F0R 1=1 TO 7:BS(I)=2*BS(I-1) 
:NEXT NE 

637 FOR 1=0 TO 7:BC(I)=255-BS(I) :NEXT LB 

638 REM *** INITIALIZE VALUES *** DK 
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639 REM ** FOREGROUND COLOR FL 

640 POKE 5328 1,6: PRINT " [CLEAR] [ BLUE]" ; : 
REM (BLUE) CO 

641 REM ** BACKGROUND COLOR DK 

642 POKE 5328 1,14: REM (LIGHT BLUE) AH 

643 REM ** BORDER COLOR BE 

644 POKE 53280,0: REM (BLACK) II 

645 REM ** SPRITE COLORS (DEFAULTS: WHI, 
RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAy) IE 

646 POKE CT(0),0:POKE CT(1),2:REM (THE S 
HIP IS BLACK, THE ROCKET RED) IG 

647 REM ** SET PRIORITY EF 

648 POKE PR, 255: REM (ALL BEHIND) JD 

649 REM ** SET HORIZONTAL SIZES BJ 

650 POKE HE, 1: REM (SHIP IS DOUBLE WIDTH, 
ROCKET IS NORMAL WIDTH) PP 

651 REM ** SET VERTICAL SIZES CO 

652 POKE VE,2:REM (ROCKET IS DOUBLE HEIG 
HT) NG 

653 REM ** ENABLE SPRITES OD 

654 POKE ES,BS(0) OR BS(1):REM (SPRITES 

AND 1) LP 

696 RETURN IM 

698 REM *** SET UP OCEAN *** JG 

700 R$=CHR$(18):RX$=CHR$(146):B$=" " BJ 

701 FD$=CHR$(162)+CHR$(185)+CHR$(175)+CH 
R$(228) HJ 
703 FU$=B$+CHR$(228)+CHR$(175)+CHR$(185) BF 

705 S$=R$:FOR 1=1 TO 40:S$=S$+B$:NEXT:S$ 
=S$+RX$ BI 

706 ST$=FU$+FD$+FU$+FD$+FU$+FD$ : ST$=ST$+ 
ST$ LC 

707 DD$=" [HOME] [20" [DOWN]"]" EL 

708 WV=8 JO 

710 PRINT "[ CLEAR ]"DD$MID$(ST$,WV,40)S$S 
$S$LEFT$(S$,40)"[HOME]"RX$; EM 

711 POKE 2023,160 BH 
796 RETURN IM 

798 REM *** SPRITE SHAPES *** CD 

799 REM ** NUMBER OF SPRITE SHAPES (-■" 
NUMBER OF LINES PER SPRITE SHAPE (-1) CE 

800 NS=1 ID 

801 REM ** LOCATE SPRITE SHAPE MEMORY OM 

802 ST(0)=13:ST(1)=14 01 

803 REM ** LOOPS HI 

804 FOR 1=0 TO NS:FOR J=0 TO 20: READ SS$ 
:FOR K=0 TO 2:X=0:Y=VB+ST(I)*64+J*3+K IG 

805 REM ** CONVERT STRINGS TO SHAPE BYTE 

S (USE BS(0-7) TO SET BITS) LA 

806 FOR L=l TO 8:M=L+8*K:M=ASC(MID$(SS$, 
M,1)):IF M=42 THEN X=X OR BS(8-L) KC 

807 NEXT:POKE Y,X: NEXT: NEXT: NEXT HP 

809 REM SPRITE SHAPE DATA, 21 LINES PER 
SHAPE: *='0N' .='OFF' MJ 

810 DATA "[9"."]* [14"."]" AG 

811 DATA "[9"."]*[14"."]" AG 

812 DATA "[9"."]*..**[10"."]" AG 

813 DATA "[9"."]*..**[10"."]" AG 



IMPflRTAMTI ^^^'^''^ °'^ white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 



and provide other essential Information on entering Ahoy! programs. Refer to these pages before entering any programs! 



814 DATA 

815 DATA 

816 DATA 

817 DATA 

818 DATA 

819 DATA 

820 DATA 

821 DATA 

822 DATA 

823 DATA 

824 DATA 

825 DATA 

826 DATA 

827 DATA 

828 DATA 

829 DATA 

830 DATA 

831 REM ** 

832 DATA 

833 DATA 

834 DATA 

835 DATA 

836 DATA 

837 DATA 

838 DATA 

839 DATA 

840 DATA 

841 DATA 

842 DATA 

843 DATA 

844 DATA 

845 DATA 

846 DATA 

847 DATA 

848 DATA 

849 DATA 

850 DATA 

851 DATA 

852 DATA 

853 DATA 
896 RETURN 
898 REM 



8". "]**..** [10"."]" 

8"!"]**!i3"*"][io"."]" 

9"."] [5"*"] [10"."]" 

7"."] [9"*"] [8"."]" 

24"*"]" 

24"*"]" 

.[20"*"].." 

3"."][18"*"][3"."]" 

3"."][18"*"][3"."]" 

3"."][19"*"].." 

4"."] [18"*"].." 

5"."] [17"*"].." 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

2ND SPRITE SHAPE 

21"."]*.." 

21"."]*. ." 

20"!"] [3"*"], 

20"."] [3"*"]. 

20"."] [3"*"], 

20"."] [3"*"], 

20"."] [3"*"], 

20"."] [3"*"], 

20"."]*.*." 

20"."]*.*." 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 



IK 
LO 
AG 
FG 
LC 
LC 
HC 
MC 
MC 
NG 
HC 
EG 
PC 
PC 
PC 
PC 
PC 
AB 
AG 
AG 
LG 
LG 
LG 
LG 
LG 
LG 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
IM 
KA 
MK 



•929 REM ** INITIAL SPRITE POSITIONING 10 

•930 HP=160:VP=0 LG 
•931 POKE VT(0),VV(VP):POKE HT(0) ,HHCHP): 

POKE HR,HB(HP) AC 

•932 POKE VT(1),VV(VP):P0KE HT(1),HH(HP) CB 
•939 REM ** TELL VIC-2 WHERE TO FIND SPRI 

TE SHAPES KK 

•940 POKE LT(0),ST(0):POKE LT(1),ST(1) FK 

•996 RETURN IM 

TUMBLING DICE & 
DATA STRUCTURES* 

FROM PAGE 37 

PICE SIMULATOR 

1 REM JD 

2 REM — DICE SIMULATOR — BA 

3 REM RUPERT REPORT #21 01 

4 REM JD 

5 REM RANDOMLY SIMULATE THE EL 

6 REM OUTCOMES FOR ROLLING THREE DICE JE 

7 REM JD 

8 REM »DETERMINE THE PROBABILITY THAT CD 

9 REM THE SUM IS ELEVEN MD 

10 N=l : R$=CHR$(18) :REM RVS ON ME 
20 PRINT CHR$(147); JL 
30 PRINT TAB(15)R$;"« # ROLLS " DO 
40 PRINT TAB(15)R$;"« # SUCCESS " AG 
50 PRINT TAB(15)R$;"« % PROBABILITY " BO 
60 A=INT(RND(0)*6)+1 PI 
70 B=INT(RND(0)*6)+1 AL 
80 C=INT(RND(0)*6)+1 AO 
90 TTL=A+B+C LK 
100 IP TTL=11 THEN SXCS=SXCS+1 KO 
110 PRINT CHR$(19);N : PRINT SXCS JM 
120 PR0B=100*SXCS/N : PRINT PROB JG 
130 N=N+1 CJ 
140 GOTO 60 PG 



*** SPRITE POSITIONS *** 

899 REM ** POSSIBLE POSITIONS DIM 'ED 

900 VZ=32:HZ=362:DIM HH(HZ) ,VV(VZ) ,HB(HZ 

) OD 

901 REM ** ASSIGN HORIZONTAL VALUES lA 

902 X=0:B=0:FOR 1=0 TO HZ:HH(I)=X:HB(I)= 

B IJ 

903 X=X+1:IF X>255 THEN X=X-256:B=3 HC 

904 NEXT lA 

905 REM ** ASSIGN VERTICAL VALUES LF 

906 X=202:F0R 1=0 TO 9: VV(I)=X:X=X-1:NEX 
T:FOR 1=10 TO 14:VV(I)=X:X=X-2:NEXT LA 

907 :FOR 1=15 TO 18:VV(I)=X:X=X-3:NEXT:F 
OR 1=19 TO 21:VV(I)=X:X=X-6:NEXT CN 

908 FOR 1=22 TO VZ: VV(I)=X:X=X-12:NEXT FA 
*Bug Repellent line codes at rigKf of program lines are for C-64 



DICE ANALYZER 



1 REM JD 

2 REM ~ DICE ANALYZER — OE 

3 REM RUPERT REPORT #21 01 

4 REM JD 

5 REM ENUMERATE ALL POSSIBLE FL 

6 REM OUTCOMES FOR ROLLING THREE DICE JE 

7 REM JD 

8 REM »CALCULATE THE PROBABILITY THAT NA 

10 REM 1) 3 ONES ARE ROLLED NP 

11 REM 2) AT LEAST 1 THREE AND 1 SIX 

ARE ROLLED KM 

3) NO TWOS ARE ROLLED HP 

4) THE SUM IS ELEVEN DN 

JD 



12 REM 

13 REM 

14 REM 

only! See VIC codes on next page, 



AHOY! 99 



IMPflRTANTI '-®*^®''^ °" *^''® tJackground are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
IITII Un mil I , and provide other essential informalion on entering 4hoy/ programs. Refer to these pages before entering any programs! 



15 REM >0N THE NTH ROLL (N = 1 TO 216): DF 

16 REM ROLL(N,Y) = DIE Y'S VALUE DF 

17 REM CT(N,Z) = # DICE WITH VALUE Z KK 

18 REM TTL(N) = SUM OF DICE VALUES AH 

19 REM JD 

20 DIM ROLL(216,3),CT(216,6),TTL(216),RN 
UM(216) JN 
30 N=l : M=l : PRINT CHR$(1A7) HH 
40 FOR A=l TO 6 : FOR B=l TO 6 FJ 
50 FOR 0=1 TO 6 ID 
60 PRINT A;B;C 00 
70 ROLL(N,l)=A:ROLL(N,2)=B:ROLL(N,3)=C OL 
80 CT(N,A)=CT(N,A)+1 :CT(N,B)=CT(N,B)+1 HH 
90 CT(N,C)=CT(N,C)+1 NP 
100 TTL(N)=A+B+C lA 
110 N=N+1 : NEXT C : NEXT B : NEXT A BN 
120 PRINT"CALCULATING [3"."] " JP 
130 FOR N=l TO 216 AE 
140 :IF CT(N,1)=3 THEN T1=T1+1 LI 
150 :IF CT(N,3)>=1 AND CT(N,6)>=1 THEN T 
2=T2+1 EA 
160 :IF CT(N,2)=0 THEN T3=T3+1 FE 
170 :IF TTL(N)=11 THEN T4=T4+1 :RNUMCM)=N 
:M=M+1 LE 
180 NEXT N NA 
190 PRINT J J 
200 PRINT, "# SUCCESS"," % PROBABILITY" JO 
210 PRINT "TEST 1",T1,T1*100/216 OL 
220 PRINT "TEST 2",T2,T2*100/216 EM 
230 PRINT "TEST 3",T3,T3*100/216 OF 
240 PRINT "TEST 4",T4,T4*100/216 NO 
250 PRINT JJ 
260 PRINT"SUCCESSFUL ROLLS FOR TEST 4:" HD 
270 FOR M=l TO T4 OG 
280 RM=RNUM(M) CB 
290 PRINT ROLL(RM,1);ROLL(RM,2);ROLL(RM, 
3), LA 

•300 NEXT M NB 

VIC 20 BUG REPELLENT LINE CODES FOR 
TUMBLING DICE & DATA STRUQURES 

DICE SIMULATOR 



# 
# 
# 
# 
# 
# 



JD 
PB 
OE 
JD 
KL 
MK 



# 

# 
# 



7: 

8: 

9: 

10: 

20: 

30: 



JD 
KJ 

LG 
MI 
JH 
FO 



# 
# 
# 
# 
# 
# 



40 


LK 


50 


ME 


60 


PI 


70 


AL 


80 


AO 


90 


LK 



# 
# 
# 



100: 
110: 
120: 
130: 
140: 



GC 
NO 
CM 
CJ 
PD 



3 



DICE ANALYZER (16K EXPANSION REQUIRED!) 



JD 
IK 
OE 
JD 
EF 
MK 



7: 

8: 

10: 

11: 

12: 

13: 



JD 
JI 
01 
MM 
FC 
GD 



# 14 

# 15 

# 16 

# 17 

# 18 

# 19 



JD 

IC 
IH 
IE 
PO 
JD 



20 
30 
40 
50 
60 
70 



EG 
HA 
EP 
HK 
OF 
OL 



# 80: 

# 90: 

100: 

110: 

120: 

130: 



EA 
NP 
lA 
AJ 
EL 
ON 



# 
# 
# 

# 
# 



140: 
150: 
160: 
170: 
180: 
190: 



IL 
JO 
IB 

FF 
NG 
JJ 



200: 
210: 
220: 
230: 
240: 
250: 



GN 
NK 
KH 
BA 
KN 
JJ 



# 260: MG 

# 270: OM 

# 280: CB 

# 290: NG 

# 300: NH 



ADDRESSING THE 
COMMODORE, PART II 

FROM PAGE 77 



THE QUEST 



*=8000 ;0R 'ORG EQU $8000' (OR $2000 



(See article for instructions on enleringi) 
10 ; 

20 ;THE QUEST 
30 : 
40 

) 

50 ; 

60 BUFLEN=23 

70 CHR0UT=$FFD2 

80 ; 

90 JMP BEGIN 

100 ; 

110 TEXT .BYTE 87,72,69.82,69,32,73,83 

120 .BYTE 32,84,72,69,32,67,79,77 

130 .BYTE 77,79.68,79,82,69,63 

140 ; 

150 BEGIN LDX #0 

160 ; 

170 LOOP LDA TEXT.X 

180 JSR CHROUT 

INX 

CPX #BUFLEN 

BNE LOOP 



190 
200 
210 
220 



10 
20 
30 
40 
0) 
50 
60 
70 



RTS 



RESPONSE 



RESPONSE 



*=$8000 ;0R 'ORG EQU $8000' (OR $200 



E0L=13 ;END-OF-LINE CHARACTER 
BUFLEN=40 ; LENGTH OF TEXT BUFFER 

80 FILLCH=$20 ; ASCII CODE FOR A SPACE 

90 CHR0UT=$FFD2 

100 ; 

110 JMP START 

120 ; 

130 TEXT .BYTE 'YOU CAN FIND HIM IN 64K' 

,13 

140 ; 

150 ; CLEAR TEXT BUFFER 

160 ; 

170 START LDA #FILLCH 



100 AHOY! 



180 LDX 


#BUFLEN 


190 STUFF DEX 


200 STA 


TXTBUF.X 


210 BNE 


STUFF 


220 ; 




230 ; STORE MESSAGE IN BUFFER 


240 ; 




250 LDX 


#0 


260 LOOP] 


L LDA TEXT,X 


270 STA 


TXTBUF,X 


280 afp 


#EOL 


290 BEQ 


PRINT 


300 I NX 




310 CPX 


#BUFLEN 


320 BCC 


LOOPl 


330 ; 




340 ; PRINT MESSAGE 


350 r 




360 PRINT LDX #0 


370 loop: 


. LDA TXTBUF.X 


380 PHA 




390 JSR 


CHROUT 


400 PLA 




410 CMP 


#EOL 


420 BNE 


NEXT 


430 JMP 


FINI 


440 NEXT 


INX 


450 CPX 


#BUFLEN 


460 BCC 


L00P2 


470 ; 




480 FINI 




490 RTS 




500 ; 




510 TXTBUF=* 


520 *=*+BUFLEN 


530 ; 




540 .ENI 


) 



SUPERHERO 

FROM PACE 17 



10 REM SUPERHERO 

20 REM BY J.C.HILTY 

30 REM 1036 BARNSLEY DR. 

40 REM LIBRARY, PA., 15129 



FG 
LE 
JK 
KF 
HH 
OP 
FO 
HC 
IC 
DD 



100 PRINT" [CLEAR]" 

102 SR=0:ALT=000 

103 Q=192:L=1141:C=28:CM=54272:M=0 

105 V=53248: 0=54272 

106 POKE 5 2, 48: POKE 56,48 
110 POKE 53281, 6: POKE 53280,2 
120 PRINT" [ DOWN ][ DOWN ]"TAB( 5 )"[RVSON][ RE 
D][7" "][c *]" CH 
130 PRINT TAB(5)"[RVS0N][8" "][c *]" NL 
140 PRINT TAB(5)"[RVS0N][BLACK] [RED] [Y 
ELL0W][7" "][RED] [c *][RVSOFF] [RVS0N][ 
BLACK] [RED] [c *][BLACK] [RED] [c *][B 
LACK] [RED] [c *] [BLACK] [RED] [c *]" CE 



•150 PRINT TAB(5)"[RVS0N][BLACK] [YELLOW 
][7" "][BLACK] [RED] [c *][BLACK] [RED] 
[BLACK] [RED] [3" "] [BLACK] [RED] [3" "] 
[BLACK] [RED] [c *]" DP 

•160 PRINT TAB(5)"[RVS0N][BLACK] [YELLOW 
][5" "] [BLACK] [3" "] [YELLOW] [BLACK] [ 
YELLOW] [BLACK] [YELLOW] [3" "] [BLACK] [ 
YELLOW] [3" "] [BLACK] [YELLOW] [3" "]" JG 

•170 PRINT TAB(5)"[BLACK][c *][RVS0N] [YE 
LL0W][7" "] [BLACK] [YELLOW] [BLACK] [Y 
ELLOW] [BLACK] [YELLOW] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [BLACK] [YELLOW] [B 
LACK] [YELLOW] " I A 

•180 PRINT TAB(6)" [BLACK ][c *][RVSON][YEL 
LOW] [7" "] [BLACK] [YELLOW] [BLACK] [YE 
LLOW] [BLACK] [YELLOW] [3" "] [BLACK] [YE 
LLOW] [RVSOFF] [RVS0N][ BLACK] [ YELLOW ][ 
3" "][BLACK][c *]" IB 

•190 PRINT TAB(10)"[RVSON][BLACK] [YELLO 
W] [BLACK] [YELLOW] [BLACK] [YELLOW] 

[BLACK] [YELLOW] [RVSOFF] [BLACK] [c *][ 
RVSON] [YELLOW] [3" "] [RVSOFF] [BLACK] [c * 
][RVSON][ YELLOW] [RVSOFF] [BLACK][c *][R 
VSON][ YELLOW] " 

•200 PRINT TAB(5)"[RVS0N][BLACK] [RED] [4" 

"] [BLACK] [YELLOW] [BLACK] [YELLOW] [6 

" "] [RVSOFF] [BLACK] [c *] [RVSON] [YELLOW] 
It 

•210 PRINT TAB( 5)" [RVSON] [BLACK] [RED] [4 
" "] [BLACK] [YELLOW] [RVSOFF] [BLACK ][c 
*] [RVSON] [YELLOW] [6" "]" 

•220 PRINT TAB(5)"[BLACK][c *][RVSON] [YE 
LLOW] [7" "]" 

•230 PRINT TAB(6)"[BLACK][c *] [RVSON ][YEL 
LOW] [7" "] [RVSOFF] [RVSON] [BLACK] [RED][ 
c *] [BLACK] [RED][c *] [RVSOFF] [RVSON] [B 
LACK] [RED][3" "][c *][RVSOFF] [RVSON][B 
LACK] [RED] [c *][RVSOFF] [RVSON]tBLAC 
K] [RED] [c *]" CL 

•240 PRINT TAB( 15) "[RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [ RVSON ][BLAC 
K] [YELLOW] [4" "] [RVSOFF] [RVSON] [BLACK] 

[YELL0W][3" "][RVSOFF] [RVSON] [BLACK] 
[YELLOW] [3" "]" FA 

■250 PRINT TAB( 15) "[RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [ RVSON ][BLAC 
K] [YELLOW] [BLACK] [c *] [RVSOFF] [RVSO 
N] [YELLOW] [BLACK] [YELLOW] [RVSOFF] [ 
RVSON] [BLACK] [YELLOW] [BLACK] [YELLOW] 

LE 

•260 PRINT TAB(15)"[RVS0N] [BLACK] [YELLOW 
][3" "] [RVSOFF] [RVSON] [BLACK] [YELLOW] [ 
3" "] [RVSOFF] [RVSON] [BLACK] [YELLOW] [3 
" "] [RVSOFF] [RVSON] [BLACK] [YELLOW] [B 
LACK] [YELLOW] " CI 

■270 PRINT TAB( 15) "[RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [ RVSON ][BL AC 
K] [YELLOW] [BLACK] [c *] [RVSOFF] [RVSO 

AHOY! 101 



GP 



FG 



EG 



AI 



HA 



N] [BLACK] [YELLOW] [BLACK] [RVSOFF][c *][ 
RVSON][ YELLOW] [RVSOFF] [RVSON] [BLACK] 
[YELLOW] [BLACK] [YELLOW] " 
•280 PRINT TAB( 15) "[ BLACK ][c *] [RVSON] [YE 
LLOW] [RVSOFF] [BLACK ][c *] [RVSON] [YELLOW 
] [RVSOFF] [ BLACK ][c *] [RVSON] [YELLOW] [A 
" "] [RVSOFF] [BLACK ][c *] [RVSON] [YELLOW] 
[RVSOFF] [BLACK] [c *] [RVSON] [YELLOW] [R 
VSOFF] [BLACK ][c *] [RVSON] [YELLOW] [3" "] 

•290 PRINT 

■300 PRINT TAB(9)"SAVE THE SPACE SHUTTLE" LL 

KL 

HI 



NN 
JJ 



310 PRINT TAB(16)"PRESS ANY KEY" 
•320 GET A$:IF A$="" THEN 320 
•330 PRINT"[H0ME]":PRINT"[21"[D0WN]"]" [ 

AB(15)"PLEASE WAIT[3"."]" 
•340 PRINT TAB(15)"READING DATA" 
•370 FOR X=12288 TO 12350 
•380 READ A: POKE X, A: NEXT 
•390 FOR X=12352 TO 12414 
•400 READ A: POKE X, A: NEXT 
•410 FOR X= 12416 TO 12478 
•420 READ A: POKE X, A: NEXT 
•430 FOR X= 12480 TO 12542 
•440 READ A:POKEX,A:NEXT 
•464 FOR X=828 TO 973 
•466 READ A:POKEX,A:NEXT 
•470 PRINT" [CLEAR]" 
•480 POKE 53280,0: POKE 53281,0 
•490 POKE 2040,194:P0KE 2041,195 
•500 POKE V+39,6:P0KE V+40,1 
•510 POKE V+0,70:P0KE V+1,80:P0KE V+2,70: 
POKE V+3,140 

■530 POKE V+29,3:P0KE V+23,3 
•540 POKE V+28,1:P0KE V+37,10:P0KE V+38,2 0D 

■ 550 PRINT" [ HOME ] " : PRINT" [ DOWN ] [ CYAN ] "TAB 
(12)"GRAPHICS[3" "]CHART" 

•560 POKE V+21,3 

•570 PRINT"[5"[D0WN]"]"TAB(12)"[EP][6" "] 
SUPERHERO" 

■ 580 PRINT" [ 6" [ DOWN ] " ] "TAB( 18) "SPACESHUTT 

LE" 

■590 PRINT"[4"[D0WN]"]"TAB(12)"[GREEN]*[C 
YAN][5" "]ZYPT0NITE METEOR" 
■600 PRINT" [ DOWN ]"TAB( 14) "PRESS ANY KEY" 
610 GET A$:IF A$="" THEN 610 
620 PRINT" [CLEAR]": POKE V+21,0 
630 POKE 53280, 2: POKE 53281,0 
700 DIMA(3) 

710 A(0)=2:A(1)=-80:A(2)=-2:A(3)=86 
720 WL=160 : HL=32 : SC=1024 : A=SC+81 

740 FOR 1=1 TO 6 

741 PRINT "[RVSON] [GREEN] [15" "][RV 
S0FF][7" "][RVS0N][17" "]" 

742 NEXT I 
TO 9 

"[RVSON] [39" "]" 



JI 
GH 
GB 
BA 
DG 
BA 
FD 
BA 
DC 
BA 
KC 
BA 
HH 
BH 
IP 
DA 

FI 
MB 



AF 
FC 

JH 

CA 

CH 
FF 
IC 
AH 
EF 
EJ 
LN 
AJ 
JB 



•744 FOR 1=1 
•745 PRINT 
•746 NEXT I 
•748 FOR 1=1 TO 8 
102 AHOY! 



FF 
MN 
JC 
GO 

MN 
JD 



•750 PRINT" [RVSON] [15" "][RVS0FF][7" "][R 
VS0N][17" "]" PM 

•760 NEXT I MN 

•770 P0KEA,4 DL 

•780 J=INT(RND(1)*4):X=J MO 

•790 B=A+A(J):IF PEEK(B)=WLTHENPOKEB,J:PO 
KEA+A(J)/2,HL:A=B:G0T0 780 BP 

•800 J=(J+1)*-(J<3):IF JOXTHEN790 FD 
•810 J=PEEK(A):P0KE A,HL:IFJ<4THENA=A-A(J 
):G0T0 780 HB 

•820 PRINT" [HOME] ":PRINT"[ 15" [ DOWN ]"]"TAB 
(16)"[CYAN]SC0RE" DN 

•830 PRINT TAB(17);SR LI 

•831 PRINT"[4"[D0WN]"]"TAB(16)"ALT":PRINT 

TAB(16);ALT MF 

•832 POKE 2040,192 DH 

•833 POKE V+0,150:P0KE V+1,60:P0KE V+2,15 
0:POKE V+3,190 OK 

•834 POKE V+21,3 FC 

•840 POKE 1113,81 :POKE 1113+CM,7 PJ 
•842 POKE 1835,81 :POKE 1835+CM,7 JF 
•844 POKE 1825,81: POKE 1825+CM,7 AH 
•846 POKE 1509, 81: POKE 1509+CM,7 EP 
•848 POKE 1599, 81: POKE 1599+CM,7 EF 
•850 POKE 1605,81 :P0KE 1605+CM,7 PL 
•852 POKE 11 37, 81: POKE 1137+CM,7 AF 
•854 POKE 1131,81 :POKE 1131+CM,7 GJ 
•856 POKE 1857,81:P0KE 1857+CM,7 JF 
•858 POKE 1851,81:P0KE 1851+CM,7 GJ 
•860 POKE U41,28:P0KE 1141+CM,3 FE 
•865 POKE A,42:J=2 QC 

•870 Q=Qfl:IF Q=195 THEN Q=192 AK 

•871 POKE 2040, Q OH 

•872 ALT=ALT+1 FP 

•873 IF ALT=800THEN3500 DP 

•875 PRINT" [HOME]": PRINT" [ 22" [ DOWN] "][CYA 
N]" TAB(16);ALT AJ 

•876 B=A+A(J)/2 JM 

•877 IF PEEK(B)=32THENP0KEB,42:P0KEA,32:A 
=B:J=(J+2)+4*(J>l) LG 

•878 IF PEEK(B)=81 THEN POKE B,42:POKE A, 
81:P0KE A+CM,7:A=B:J=(J+2)+4*(J>l) KJ 
•879 IF PEEK(B)=28 THEN 3000 IG 

•880 J=(J-1)-4*(J=0) HI 

•881 SYS(828):R=PEEK(254)-PEEK(253) ML 
•890 IF R=0 THEN 870 AO 

•900 W=PEEK(L+R) gN 

•910 IF W=81 THEN 1500 HI 

•920 IF W032 THEN 870 PH 

•930 L=L+R:P0KE L-R,32:P0KE(L-R)+CM,5 BN 
•940 POKE L,C:P0KE L+CM,3 BB 

•950 GOTO 870 CP 

•1500 M=M+1:IF M=10 THEN 2500 LH 

•1505 L=L+R:P0KE L-R,32 BD 

•1510 P0KEL,C:P0KEL+CM,3 BB 

•1520 GOSUB 2000 FL 

•1530 PRINT"[H0ME]":SR=SR+10:PRINT"[16"[D 
0WN]"][CYAN]"TAB(17);SR KG 

•1540 GOTO 870 CP 



I M PflRTA NTI '-^"^'■5 °" w'l''® background are Bug Repellent line codes. Do not enter themi Pages 85 and 86 explain these codes 
I III r Un mil l . and provide other essentia! information on entering Ahoy! programs. Refer to these pages before entering any programs! 

2000 FOR X=0 TO r>|.24:P0KE X,0:NEXT CE '4100 SR=0 10 

•4110 GOTO 710 CA 

NL -6240 REM MULTICOLOR SUPERHERO X3 OF 

GB -6250 DATA 0,160,0,0,144,0,0,144,0,0,192, 

IM 0,3,160,0,12,160,0 IG 

GC -6260 DATA 48,160,0,48,160,0,48,160,0,48, 

IM 128,0,192,128,0,192,192,0 MJ 

GH '6270 DATA 192,192,0,192,128,0,192,128,0, 

IM 0,128,0,0,128,0,0,192,0 AN 



2010 POKE O,150:P0KEO+l,200:POKEO+5,8:PO 

KEO+6,248 

2020 P0KE0+24,15:P0KE(>f4,17 

2030 FOR T=0T050:NEXT 

2040 POKEO+4,16 

2050 FOR T=0T050:NEXT 

2060 POKEO+24,0 



2070 RETURN 

2100 FOR X=0 TO 0+24 :POKEX,0: NEXT CH -6280 DATA 0,192,0,0,192,0,0,240,0 FI 

2110 P0KEO+24,15:POKE0+12,160:P0KEO+13,2 -6290 DATA 0,160,0,0,144,0,0,144,0,0,192, 

52 JO 0,3,160,0,14,160,0,50,170,64,50,170,64 EI 

2120 FOKEO+8,8O:P0KEO+7,40:P0KE 0+11,129 FB -6300 DATA 50,160,0,56,128,0,204,128,0,19 

2130 FOR T=OT0100:NEXT LC 6,192,0,192,192,0,194,32,0 KF 



2140 P0KE0+11,128:RETURN HA 

2500 PRINT" [CLEAR]" HH 

2502 PRINT" [ CYAN ][ 15" [ DOWN ]"]"TAB(6)*'C0N 
GRATULATIONS" GK 

2503 PRINT" [DOWN] [6" "]PLAY ON!" KF 

2504 FOR T=0 TO 3000: NEXT PL 
2510 M=0 DG 
2520 SR=SR+100:ALT=ALT -200 NI 
2525 L=1141 LN 
2528 PRINT" [CLEAR]" HH 
2530 GOTO 710 CA 
3000 PRINT" [CLEAR]" HH 
3005 FOR T=l TO 30 NI 
3010 POKE V+39,2:POKE V+39,1:P0KE V+39,6 LL 
3020 NEXT I A 
3030 GOSUB 2100 FE 
3040 PRINT"[14"[DOWN]"]S0RRY,A ZYPTONITE 

METEOR CRUSHED YOU." NE 

3050 FOR T=0 TO 3000: NEXT PL 

3060 GOTO 4000 FF 

3500 PRINT "[CLEAR]" HH 

3510 FOR T=l TO 20 MF 
3520 POKE V+40,2:POKE V+40,6:P0KE V+40,1FD 

3530 NEXT I A 

3540 GOSUB 2100 FE 
3550 PRINT"[12"[D0WN]"][CYAN]THE SHUTTLE 

IS 800 MILES UP— TOO LATE." KF 

3560 FOR T=0 TO 3000: NEXT PL 

3570 GOTO 4000 FF 

4000 PRINT" [CLEAR]" HH 

4005 POKE V+21,0 FF 

4010 PRINT"[12"[D0WN]"][RED]S CORE " 

;SR OM 
4020 PRINT" [DOWN] [DOWN] PLAY AGAIN[3"-"]Y 

OR N " DK 

4030 GET JUNK$:IF JUNK$<>""THEN 4030 FG 

4040 GET A$:IF A$=""THEN 4040 LO 

4050 IF A$="Y" THEN 4060 MF 

4055 END IC 

4060 PRINT" [CLEAR]" HH 

4070 M=0 DG 

4080 L=1141 LN 

4090 ALT=000 CK 



•6310 DATA 194,32,0,8,8,0,8,8,0,48,12,0,4 
8,12,0,12,12,0,0,15,0 IN 

•6320 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,14,160,64,48,171,0,48,162,0 HN 

•6330 DATA 48,164,0,48,136,0,192,128,0,19 
2,192,0,192,192,0,194,32,0 MO 

•6340 DATA 194,32,0,2,32,0,2,32,0,2,32,0, 
3,48,0,3,48,0,3,252,0 GA 

6350 REM SPACESHUTTLE EA 

6360 DATA 0,0,0,0,0,0,32,0,0,32,0,0,48,0 
,0,56,0,0 OJ 

6370 DATA 63,255,192,63,255,224,61,85,48 
,63,255,56 OJ 

6380 DATA 63,255,252,12,62,0,8.60,0,8,56 
,0,0,48,0 GG 

6390 DATA 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0 CG 

6450 REM ML JOYSTICK ROUTINE PM 

6460 DATA 173,1,220,74,176,40,74,74.176, 
11,169,0 FB 

6470 DATA 133,254,169,41,133,253,76,182, 
3,74,176,11,169,0,133,254,169,39 NM 
6480 DATA 133,253,76,182,3,169,0,133,254 
,169,40,133,253,76,182,3,74,176 CA 
6490 DATA 39,74,176,11,169,39,133,254,16 
9,0,133,253,76,182,3,74,176,11 KH 
6500 DATA 169,41,133,254,169,0,133,253,7 
6,182,3,169,40,133,254,169,0 NF 

6510 DATA 133,253,76,182,3,74,176,11,169 
,0,133,254,169,1,133,253,76,182,3 LG 
6520 DATA 74,176,11,169,1,133,254,169,0, 
133,253,76,182,3,169,0,133,254 CH 
6530 DATA 133,253,173,1,220,74,74,74,74, 
74,176,7,169,1,133,80,76,203,3 LJ 
6540 DATA 169,0,133,80,96,234,234 EM 

AHOY! DOCK 

FROM PACE 30 

•0 PRINT" [CLEAR]" HH 

•1 DIMSU$(500),TA$(500),AN$(500),MN$(500) 

,ID$(50fj),CM$(500):P$=",":OPEN15,8,15 IB 
•2 GOTOIOO CF 
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•10 PRINT"[CLEAR]":PRINTTAB(12);"0NE MOME 
NT READING": PRINT ;PRINTTAB(20-LEN(Z$)/2) 
;Z$ FI 

•15 0PEN5,8,5,"0:"+z$+".S,R":INPUT#15,AX, 
BX$ , CX , DX$ : IFAXO0THENG0SUB9000 : RETURN KB 
•18 F0RI=1T0500:C=I FN 

•20 INPUT#5,SU$(I),TA$(I).AN$(I),MN$(I),I 
D$(I),CM$(I) DM 

•30 IFSU$(I)="E0F"THENCL0SE5:C=C-1:RETURN EM 
•40 NEXT I A 

•50 PRINT :PRINT"40 CHARACTERS MAXIMUM" :F0 
RI=1T04000 ; NEXT : PRINT" [ CLEAR ] " : RETURN OJ 
•60 PRINT :PRINT"80 CHARACTER MAXIMUM": FOR 
I=1T04000 : NEXT : PRINT" [CLEAR ] " : RETURN NB 
•80 OPEN5,8,5,"(aO:"+Z$+",S,W":FORI=lTOC HN 
•82 PRINT#5,SU$(I):PRINT#5,TA$(I):PRINT#5 

,AN$(I):PRINT#5,MN$(I):PRINT#5,ID$(I) NF 
•83 PRINT#5,CM$(I):NEXT:I=C+1 FM 

•84 SU$(I)="EOF":TA$(I)="TITLE":AN$(I)="A 
UTHOR":MN$(I)="MAG":ID$(I)="ISSUE" JO 
•86 CM$(I)="C0MMENT":PRINT#5,SU$(I):PRINT 
#5,TA$(I):PRINT#5,AN$(I):PRINT#5,MN$(I) JP 
•87 PRINT#5,ID$(I):PRINT#5,CM$(I) IK 

•88 CLOSES: RETURN JK 

• 100 PRINT" [ CLEAR ] " : P0KE53280 , 6 : P0KE53281 
,0:FORI=1T040: PRINT" [ RED] [s S] [WHITE] [s 
S]";:NEXT:PRINT"[RED][s S][WHITE][s S]"; KI 

•110 PRINT" [RVSON][c A][32"[s C]"][c S][ 
RVSOFF] "; FP 

•120 PRINT "[RED][s S][WHITE][s S]";:PRIN 
T"[RED][s S][WHITE][s S] [RVSON][s B][RV 
S0FF][32"="][RVS0N][s B][RVSOFF] [RED][s 
S][WHITE][s S]"r HJ 

•130 PRINT"[RED][s S ] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3"*"] AHOY DO 
CK FILE[3"*"] [RVSOFF] [5"="] [RVSON] [s B] 
[RVSOFF] [RED][s S][WHITE][s S]"; HD 

•140 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [22" "] [RVSOFF 
][5"="][RVS0N][s B][RVS0FF] [RED][s S][W 
HITE][s S]"; ND 

•150 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "]ADD[4" " 
]-/- RECORD [RVSOFF] [5"="] [ RVSON] [s B][ 
RVSOFF] [RED][s S] [WHITE] [s S]"; ^ AC 

•160 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "JSEARCH - 
/- RECORD [RVSOFF] [5"="] [RVSON ][s B][RV 
SOFF] [RED][s S][WHITE][s S]"; HG 

•170 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "] DELETE - 
/- RECORD [RVSOFF] [5"="] [RVSON ][s B][RV 
SOFF] [RED][s S] [WHITE] [s S]"r IP 

■180 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3" "]MODIFY - 
/- RECORD [RVSOFF] [5"="] [RVSON] [s B][RV 
SOFF] [RED][s S][WHITE][s S]"; HM 

•190 PRINT"[RED][s S][WHITE][s S] [RVSON] 
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[s B][ RVSOFF] [5"="] [RVSON] [3" "]S0RT[3" 
"]-/- RECORD [RVSOFF] [5"="] [RVSON ][s B] 
[RVSOFF] [RED][s S][WHITE][s S]"; OE 

•200 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3" "]LIST[3" 
"]-/- RECORD [RVSOFF] [5"="] [RVSON] [s B] 
[RVSOFF] [RED][s S][WHITE][s S]"; MO 

•210 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "] PRINT - 
/- RECORD [RVSOFF] [5"="] [RVSON] [s B][RV 
SOFF] [RED][s S][WHITE][s S]"; MM 

•215 PRINT"[RED][s S][WHITE][s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [22" "] [RVSOFF 
][5"="][RVS0N][s B][RVSOFF] [RED][s S][W 
HITE][s S]"; ND 

•220 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B ] [RVSOFF] [32"="] [RVSON] [s B][RVS0FF] 
[RED][s S][WHITE][s S]"; DF 

•230 PRINT"[RED][s S][WHrrE][s S] [RVSON] 
[c Q][32"[s C]"][c W][RVSOFF] [RED][s S] 
[WHITE][s S]"; if 

•240 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF]" ;:PRINTCHR$( 159) ;:PRINT"[R 
VSON] F1[3","]ADD[4" "]"; :PRINTCHR$(5) ; PG 

• 250 PRINT" [ 6"=" ] " ; : PRINTCHR$ ( 1 59 ) ; : PRINT 
" [ RVSON ]F2[ 3". -i] SEARCH "; :PRINTCHR$(31) 
;: MP 

•260 PRINT" [ WHITE] [ RVSON ][s B] [RVSOFF] [R 
ED][s S][WHITE][s S]"; :PRINT"[RED] [s S][ 
WHITE][s S] [RVSON][s B] [RVSOFF]"; : PRINT 
CHR$( 159) ; : PRINT"[ RVSON] F3[ 3" . " ]DELETE 



BM 
BJ 

EO 

IL 



• 270 PRINTCHR$C 5) ; t PRINT" [ 6"=" ] " ; : PRINTCH 
R$(159);:PRINT"[RVS0N] F4[3"."]M0DIFY "; 

•280 PRINTCHRS (31);: PRINT" [ WHITE ][ RVSON ][ 
s B][RVS0FF] [RED][s S][WHITE][s S]";:PR 
INT"[RED][s S][WHITE][s S] [RVS0N][s B][ 
RVSOFF]" ; :PRINTCHR$( 159) ; 

•290 PRINT" [RVSON] F5[3"."]S0RT[3" "]"-:P 
RINTCHR$(5);:PRINT"[6"="]";: 

•300 PRINTCHR$(159);:PRINT" [RVS0N]F6[3". 
"]LIST[3" "J";:PRINTCHR$(31);:PRINT"[WHI 
TE][RVSON][s B][RVSOFF] [RED][s S][WHITE 
][s S][WHITE]"; LJ 

•310 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B][RVS0FF]";:PRINTCHR$(159);:PRINT"[R 
VSON] F7[3"."]PRINT "; :PRINTCHR$(5) ; : CE 

•320 PRINT"[6"="]"; :PRINTCHR$(159) ; :PRINT 
" [RVS0N]F8[3"."]END[4" "]"; :PRINTCHR$(3 
1);: CL 

•330 PRINT" [WHITE] [RVSON] [s B] [RVSOFF] [R 
ED][s S][WHITE][s S]"; :PRINT"[RED][s S][ 
WHITE][s S] [RVS0N][c Z][32"[s C]"][c X] 
[RVSOFF]"; gJ 

•340 PRINT" [RED][s S][WHITE][s S]";:FORI 
=lT040:PRINT"[RED][s S]"; :PRINT"[ WHITE] [ 
s S]";:NEXT EG 

•350 GETRE$:IFRE$=""THEN350 AE 



GJ 



EG 
AE 



•360 IFRE$=CHR$(140)THEN680 PL 

•400 FORI=133TO14O:IFRE$=CHR$(I)THEN520 GK 
•410 NEXT I A 

• 420 PRINT" [ CLEAR ] " : P0KE53281 , : P0KE53280 
,0:PRINT"[WHrTE]":PRINTTAB(12); "INVALID 

RESPONSE" OL 

■430 PRINT:PRINTTAB(7); "PLEASE PRESS FUNG 
TION KEY" :RE$="":F0RI=lT04f"//j: NEXT FD 
•440 GOTOIOO CF 

• 450 DATA+++++++++++++++++++++++ , + . . .SELE 

CTION MENU +,+ + ™ 

•460 DATA + 1— BUSINESS +,+ 2— DI 
SK OPERATION +,+ 3--EDUCATI0NAL + AM 
•470 DATA + 4— FUN AND GAMES +,+ 5— GR 
APHICS +,+ 6— HARDWARE + BM 
•480 DATA + 7— HOME USE +,+ 8— LA 
NGUAGES-MLX +,+ 9— MISCELLANEOUS + IL 
•490 DATA + 10-MUSICAL +,+ H-SI 
MULATIONS +.+ 12-SOFrWARE + EI 
•500 DATA + 13~TUT0RIAL +,+ 14-UT 
ILITIES +,+ + SJ 

•510 DATA+ PLEASE SELECT +,++++++++ 

+++++++++1-+++++ ^^ 

• 520 PRINT" [ CLEAR ] " ; PRINT : P0KE53280 , 7 : POK 

E53281 , 1 : PRINT" [ BLACK ] " : FORI=1T020 : READM 

$ DE 

•530 PRINTTAB(9);M$: NEXT: RESTORE: INPUT" [9 

"[RIGHT]" ]";SE$:SE=VAL(SE$) KG 

•532 IFSE$-"/"THEN440 ME 

•535 IFSE<10RSE>14THEN520 LO 

•540 IFSE$="1"THENZ$="BUSINESS" AP 

•550 IFSE$="2"THENZ$="DISK OPERATION" EC 

•560 IFSE$="3"THENZ$="EDUCATI0NAL" IG 

•570 IFS£$="4"THENZ$="FUN & GAMES" FA 

•580 IFSE$="5"THENZ$="GRAPHICS" OE 

•590 IFSE$="6"THENZ$="HARDWARE" LC 

•600 IFSE$="7"THENZ$="H0ME USE" KE 

•610 IFSE$="8"THIiNZ$="LANGUAGES-MLX" GC 

•620 IFSE$="9"THENZ$="MISCELLANE0US" AI 

•630 IFSE$="10"THENZ$="MUSICAL" PJ 

•640 IFSE$="11"THENZ$="SIMULATI0NS" CK 

•650 IFSE$="12"THENZ$="S0FTWARE" BP 

•660 IFSE$="13"THENZ$="TUT0RIAL" FJ 

•670 IFSE$="14"THENZ$="UTILITIES" EI 

•680 RE=ASC(RE$) :0N(RE-132)G0SUB1000.2000 

, 3000 , 4000 , 5000 , 6000 , 7000 , 8000 DH 
•690 Z$="XX":DE$-"":DE=.:K1=.: GOTOIOO EM 

• 700 REM********************************* 

* EO 

•710 REM* WRITTEN BY GLENN LUMPKINS LF 

•720 REM* FEB. 1985 KD 

• 730 REM********************************* 
« EO 

•999 REM=====ADD ROUTINE===== OC 

• 1000 PRINT" [ CLEAR ] " : GOSUBIO : PRINT" [CLEAR 
]":C=C+1 ^^ 

•loio IFK=1THENK=0: RETURN GN 

•1020 PRINTTAB(8);"[RVS0N]: SUBJECT OF 



ARTICLE : [ RVSOFF ]": PRINT" [ BLUE ] " ; : INPUTS 
U$(C) AC 

•1025 IFSU$(C)="/"THENRETURN DD 

-1030 IFLEN(SU$(C))>79THENG0SUB60:PRINT: 
G0T01020 Pf 

■ 1040 PRINT" [ BLACK ] " : PRINTTAB(8 ) ; " [ RVSON ] 
: TITLE[4" "]0F ARTICLE : [RVSOFF] ":PRIN 
T"[BLUE]";:INPUTTA$(C) FA 

•1045 IFTA$(C)="/"THEN1020 GG 

• 1050 IFLEN(TA$(C) )>39THENG0SUB50:PRINT:G 
OT01040 LH 

•1060 PRINT" [ BLACK] ":PRINTTAB(8);"[ RVSON] 
: AUTHOR 'S[8" "]NAME : [RVSOFF]": PRINT" [B 
LUE]";:INPUTAN$(C) I J 

•1065 IFAN$(C)="/"THEN1040 GC 

•1070 IFLEN(AN$(C))>39THENG0SUSB50:PRINT: 
GOTO 1060 MO 

• 1080 PRINT" [ BLACK ] " : PRINTIABCS ) ; " [ RVSON ] 
:[SS]NAME[5" "]0F MAGAZINE :[ RVSOFF ]": PR 
INT" [BLUE]" ;:INPUTMN$(C) MM 

•1085 IFMN$(C)="/"THEN1060 JM 

•1090 IFLEN(MN$(C))>39THENGOSUB50:PRINT:G 

0T01080 AN 

•1100 PRINT"[ BLACK ]":PRINTTAB(8); "[RVSON] 

tISSUE # / PAGE / DATE : [RVSOFF]": PRINT" 

[BLUE]";:INPUTID$(C) AO 

•1105 IFID$(C)="/"THEN1080 HI 

•1110 IFLEN(ID$(C))>39THENG0SUSB50;PRINT: 

GOTOllOO GH 

•1120 PRINT"[BLACK]":PRINTTAB(8);"[RVS0N] 

: COMMENTS OR [3" "] NOTES : [RVSOFF ]":PRI 

NT"[BLUE]";:INPUTCM$(C) IP 

•1130 IFLEN(CM$(C))>79 THENG0SUB60: PRINT: 

G0T01120 CO 

•1135 IFCM$(C)="/"THEN1100 HI 

. 1 140 PRINT" [ BLACK ] " : PRINTTAB( 5 ) ; "->PRESS 
ANY KEY TO CONTINUE<-" 

• 1 1 50 GETDE$ : IFDE$=""THEN 1 1 50 
•1160 PRINT" [ CLEAR ]":PRINTTAB(20-LEN(Z$)/ 

2);Z$:PRINT 
•1170 PRINrrAB(5);"[RVS0N][C][RVS0FF]0NTI 

NUE OR [RVSON] [W][RVSOFF]RITE TO DISK" OF 
•1180 GETDE$:IFDE$=""THEN1180 CD 

•1185 IFDE$="/"THENRETURN 10 

•1190 IFDE$<>"C"ANDDE$<>"W"THEN1180 DO 
•1200 IFDE$="C"THENPRINT"[CLEAR]":C=C+1:G 

0TO1020 BL 

•1205 PRINT :PRINTTAB( 15); "WRITING TO":PRI 

NT:PRINTrAB(20-LEN(Z$)/2);Z$ ED 

•1210 G0SUB80: RETURN MF 

•1999 REM====DELETE R0UTINE======= DN 

• 2000 PRINT" [ CLEAR ] " : PRINT : PRINT : PRINT PH 
•2005 PRINT" DELETE [RVSON] [E][RVSOFF]NT 

IRE FILE OR [RVSON] [0] [ RVSOFF ]NE RECORD" GE 
•2010 GETDE$:IFDE$=""THEN2010 BO 

•2015 IFDE$="/"THENRETURN 10 

•2020 IFDE$<>"E"ANDDE$<>"0"THEN2000 FI 
•2030 IFDE$="E"THENGOSUB9200: RETURN EP 
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EG 
BO 

BG 



•2040 FL=1:G0SUB7000:FL=.: RETURN JD 
•2999 REM=====SORT PART1====== PK 

•3000 G0SUB10:PRINT"[ CLEAR ]":F0RI=1T05: PR 
INT : NEXT :PRINrrAB( 15); "SORT BY": PRINT JE 
•3010 F1=1:G0SUB5010:IFDE$='7"THENRETURN OF 

• 3020 IFDE$="S"THENK1=1 : G0SUB9300 : GOT0307 

ED 

• 3030 IFDE$="T"THENK 1=2 : GOSUB9300 : G0T0307 

ED 

• 3040 IFDE$="A"THENK1=3 : G0SUB9300 : GOT0307 

GP 

• 3050 IFDE$="M"THENK1=4 : GOSUB9300 : G0T0307 

LK 

• 3060 IFDE$="I"THENK 1=5 : G0SUB9300 : G0TO307 

IF 

•3070 Kl=.: PRINT" [CLEAR ]":PRINTTAB(8); "ON 
E MOMENT WRITING SORTED" : PRINT 00 
•3080 PRINTTAB(20-LEN(Z$)/2);Z$ KL 
•3090 G0SUB80; RETURN MF 

•3999 REM=====PRINT REC0RD/FILE===== LP 
• 4000 PRINT" [ CLEAR ] " : PRINTTAB(8 ) ; " [ RVSON ] 
[E][RVSOFF]NTIRE OR [RVSON] [0][RVSOFF]NE 
RECORD" LD 

•4010 GETDE$:IFDE$=""THEN4010 BM 

•4020 IFDE$="/"THENRETURN 10 

•4030 IFDE$<>"E"ANDDE$<>"0"THEN4010 GB 
• 4040 IFDE$="0"THENK2=1 : G0SUB7000 : IFK2= .T 
HENRETURN NI 

•4050 IFDE$="E"THENGOSUB10:GOT04200 JH 
•4060 0PEN3,4:XX$="[s T][17"="][s Y]":PRI 
NT#3,Z$;" RECORD NUMBER" ;I:PRINT#3 ML 
• 4070 PRINT#3 : PRINT#3 , XX$ : PRINT#3 , TAB( 3) ; 
"S U B J E C T":PRINT#3 FH 

•4080 PRINT#3,SU$(I):PRINT#3:PRINT#3,XX$: 
PRINT#3,TAB(5);"T I T L E":PRINT#3 HD 
•4090 PRINT#3,TA$(I):PRINT#3:PRINT#3,XX$: 
PRINT#3,TAB(4);"A U T H R":PRINT#3 JC 
•4100 PRINT#3,AN$(I):PRINT#3:PRINT#3,XX$: 
PRINT#3,TAB(2);"M A G A Z I N E" PG 
•4110 PRINT#3:PRINT#3,MN$(I) :PRINT#3:PRIN 
T#3,XX$:PRINT#3,TAB(5);"I S S U E" NH 
•4120 PRINT#3:PRINT#3,ID$(I):?RINT#3:PRIN 
T#3,XX$:PRINT#3,TAB(3);"C M M E N T" BJ 
•4130 PRINT#3:PRINT#3,CM$(I):CL0SE3:RETUR 
N ■ FL 

•4199 REM=====PRINT ENTIRE REC0RD===== GL 
•4200 PRINT" [CLEAR]" :PRINTTAB(14); "NOW PR 
INTING" : PRINT : PRINTTABC 20-LEN(Z$) /2) ;Z$ OJ 
•4210 XX$="[s T][17"="][s Y]":0PEN3,4:PRI 
NT:PRINT"RECORD NUMBER" AH 

•4230 PRINT#3,Z$;" FILE":PRINT#3 GH 
• 4240 FORI=1TOC : PRINTI : PRINT#3 : PRINT#3 , "= 
=>RECORD NUMBER"; I;" <==":PRINT#3 AA 
•4250 PRINT#3,XX$:PRINT#3,TAB(3);"S U B J 

E C T":PRINT#3:PRINT#3,SU$(I):PRINT#3 PD 
•4260 PRINT#3,XX$:PRINT#3,TAB(5);"T I T L 

E" : PRINT#3 : PRINT#3 , TA$ ( I ) : PRINT#3 PE 
•4270 PRINT#3,XX$:PRINT#3,TAB(4);"A U T H 
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R":PRINT#3:PRINT#3,AN$(I):PRINT#3 ME 
•4280 PRINT#3,XX$:PRINT#3,TAB(2);"M A G A 
Z I N E":PRINT#3:PRINT#3,MN$(I) BO 

• 4290 PRINT#3 : PRINT#3 , XX$ : PRINT#3 ,TAB( 5 ) ; 

"I S S U E":PRINT#3:PRINT#3,ID$(I) BP 
• 4300 PRINT#3 : PRINT#3 , XX$ : PRINT#3 , TAB( 3 ) ; 

"C M M E N T":PRINT#3:PRINT#3,CM$(I) MI 
•4310 PRINT#3: NEXT: CLOSES: RETURN GC 
•4999 REM=====SEARCH ROUTINE===== AA 

• 5000 PRINT" [ CLEAR ] " : F0RI=1T05 : PRINT : NEXT 
:PRINTTAB( 15); "SEARCH BY": PRINT HN 

• 5010 PRINT: PRINTIABC 15) ; "[RVSON ] [S ] [RVSO 
FF]UBJECT" : PRINT: PRINTTABC 15) ;"[ RVSON ][T 
][RVSOFF]ITLE": PRINT CG 

•5020 PRINTTABC 15) ;"[RVSON] [A] [RVSOFF]UTH 
OR" : PRINT: PRINTTABC 15) ; "[RVSON ] [M] [ RVSOF 
F]AGAZINE": PRINT EK 

•5030 PRINrrABCl5);"[RVS0N]iI][RVS0FF]SSU 
E BL 

•5040 GETDE$:IFDE$=""THEN5040 EC 

•5045 IFDE$="/"THENRBTURN 10 

• 5050 IFDE$<>"S"ANDDE$<>"T"ANDDE$<>"A"AND 
DE$<>"M"ANDDE$<>"I"THEN5000 IC 

•5055 IFF1=1THENF1=.:RETURN KC 

• 5060 IFDE$="S"THENPRINT" [ CLEAR ] " : F0RI=1T 
04: PRINT: NEXT :G0T05090 PL 

• 5070 IFDE$="T"THENPRINT"[CLEAR]" :F0RI=1T 
04 : PRINT: NEXT :G0TO51 10 AH 

• 5075 IFDE$=" A"THENPRINT" [ CLEAR ] " : F0RI=1T 
04:PRINT:NEXT:G0T05130 OM 

• 5080 IFDE$="M"THENPRINT" [ CLEAR ] " : F0RI=1T 
04 : PRINT: NEXT :G0T05 150 GC 

• 5085 IFDE$="I"THENPRINT" [ CLEAR ] " : F0RI=1T 
04 : PRINT : NEXT :G0T05 170 FA 

•5090 PRINT"[CLEAR]":PRINrrAB(13);"ENTER 
" ; : PRINT" [ BLUE ] " ; : PRINT" [ SUBJECT ] " : PRINT 
"[BLACK]" GG 

•5100 INPUTS$:G0SUB10:GOT05300 LH 

•5110 PRINT"[ CLEAR] ":PRINrrAB( 13); "ENTER 
"; :PRINT" [ BLUE] "; :PRINT"[ TITLE]" :PRINT"[ 
BLACK]" 

•5120 INPUTT$:GOSUB10:G0TO53O0 

• 51 30 PRINT" [ CLEAR ] " : PRINTI AB C 13) ; "ENTER 
" ; : PRINT" [ BLUE ] " ; : PRINT" [ AUTHOR ] " : PRINT" 
[BLACK]" 

• 5140 INPUTA$ : GOSUBIO : GOT05300 

• 51 50 PRINT" [ CLEAR ] " : PRINTTABC 12); "ENTER 
" ; : PRINT" [ BLUE ] " ; : PRINT" [ MAGAZINE] " : PRIN 
T"[ BLACK]" 

• 5160 INPUTM$: GOSUBIO :G0T05300 
•5170 PRINT"[CLEAR]":PRINTTABC13);"ENTER 

" ; : PRINT" [ BLUE ] " ; : PRINT" [ ISSUE ] " : PRINT" [ 
BLACK]" JM 

•5180 INPUTI$: GOSUBIO :GOTO5300 MJ 

•5300 PRINT"[CLEAR]": PRINT" #";TABC10);"0 
NE MOMENT SEARCHING": PRINTTABC 20-LEN(Z$) 
/2);Z$ FE 

•5310 F0RI=1T0C JM 



FN 

NE 



LO 

JB 



AL 

NF 



EK 



BL ' 


• 5410 


EC 


•5415 


10 


• 5420 




• 5430 


IC 


NT 


KC 


• 5440 




OR 


PL 


• 5450 




•5460 


AH 


•5470 




• 5480 


OM 


•5500 



GC 



FA 



GG 

LH 



FN 
NE 



LO 

JB 



AL 

NF 



JM 

MJ 



FE 
JM 



JB 



LF 



FF 



BB 



KB 



GG 



LM 



KI 
NI 
AE 
FO 



5320 IFDE$="S"ANDLEFT$(S$,LEN(S$))=LEFT$ 
(SU$(I),LEN(S$))THENPRINTI;SU$(I):K=K+1 
5330 IFDE$="T"ANDLEFT$(T$,LEN(T$))=LEFT$ 
(TA$(I),LEN(T$))THENPRINTI;TA$(I):K=K+1 
5340 IFDE$="I"ANDLEFT$(I$,LEN(I$))=LEFT$ 
(ID$(I),LEN(I$))THENPRINTI;ID$(I):K=K+1 
5350 IFDE$="M"ANDLEFr$(M$,LEN(M$))=LEFT$ 
(MN$(I),LEN(M$))THENPRINTI;MN$(I):K=K+1 
5360 IFDE$="A"ANDLEFr$(A$,LEN(A$))=LEFT$ 
(AN$(I),LEN(A$))THENPRINTI;AN$(I):K=K+1 
5370 IFK=15THENK=0:PRINT:PRINTTAB(4) ;"C0 
RRECT RECORD FOUND [RVSON][Y][RVSOFF] OR 

[RVS0N][N][RVS0FF]":Y=1 
5380 IFY=1THENGETRE$ : IFRE$=""THEN5380 
5385 IFRE$="/"THENRETURN 
5390 IFY=1ANDRE$<>"N"ANDRE$<>"Y"THEN5380 DK 
5400 IFRE$='*N"THENPRINT"[CLEAR]":Y=. :RE$ 
="":NEXT:G0T05440 

IFRE$="Y"THENY=. :G0T05500 
IFC-IANDK=>1THENK=15 : GOT05370 
NEXT: PRINT 
PRINTTAB(H); "RECORD NOT FOUND" :PRI 

PA 
PRINTTAB(10)"[RVSON][A][RVSOFF]BORT 
[RVS0N][R][RVS0FF]ETRY GN 

GETDE$:IFDE$=""THEN5450 BN 

IFDE$="/"ORDE$="A"THENRETURN EK 
IFDE$="R"THENDE$="" :G0T05000 FO 
IFDE$<>"A"ANDDE$<>"R"THEN5450 PF 
PRINT :PRINTTAB( 13) ; "SELECT RECORD": 
PRINT"[BLUE]"; :INPUTRN:IFRN>CTHEN5500 KB 
5510 PRINT" [ BLACK ] " : PRINT" [ CLEAR ] " : I=RN : 
FA=1:G0T07010 DD 

5999 REM====M0DIFY REC0RD====== LN 

6000 F4=1:G0SUB7000 PF 
6010 PRINTTAB(7);"[BLACK]";"[RVS0N][1. S 
UBJECT OF ARTICLE ][RVS0FF]": PRINT" [BLUE 
]";SU$(I):PRINT 

6020 PRINTTAB(7);"[BLACK]";"[RVS0N][2, T 
ITLE OF ARTICLE[3" "] ] [RVS0FF]":PRINT"[B 
LUE]";TA$(I):PRINT 

6030 PRINTTAB(7);"[BLACK]";"[RVS0N][3. A 
UTHOR'S NAME [6" "]] [RVSOFF]": PRINT" [BLUE 
]";AN$(I):PRINT 

6040 PRINTTAB(7);"[BLACK]";"[RVS0N][4. N 
AME OF MAGAZINE[3" "]] [RVSOFF]" :PRINT"[B 
LUE]";MN$(I):PRINT 

6050 PRINTTAB(7);"[BLACK]";"[RVS0N][5. I 
SSUE #/PAGE/DATE ] [RVSOFF]": PRINT" [BLUE 
]";ID$(I):PRINT 

6060 PRINTTAB(7);"[BLACK]";"[RVS0N][6. C 
OMMENT OR N0TE[4" "]] [RVSOFF]": PRINT" [BL 
UE]";CM$(I):PRINT 

6070 PRINTTAB(7);"[BLACK]";"[RVS0N][7, W 
RITE TO DISK [6" "]][RVSOFF]":PRINT 
6080 PRINTTAB(7);"[3"="]>CHANGE WHICH LI 
NE<==" 
6090 GETDE$ : IFDE$=""THEN6090 



CN 



AB 



AN 



PM 



DO 



BG 
OC 

BO 

EK 



•6100 DE=VAL(DE$):IFDE$="/"THENRETURN NL 
•6110 IFDE<10RDE>7THEN6090 LO 

•6120 IFDE=7THENG0SUB80: RETURN HO 

•6130 IFDE= ITHENPRINT" [ CLEAR ] " : PRINTTAB( 5 

);"[RVSON]: SUBJECT OF ARTICLE : [RVSOFF] 

":PRINT:PRINT"[BLUE]"; II 

•6140 IFDE=1THENPRINTSU$(I) : PRINT: PRINT"E 

NTER NEW VALUE": PRINT :INPUTSU$( I) NH 
•6150 IFLEN(SU$(I))>79THENG0SUB60:PRINT:G 

0T06130 GM 

•6155 IFSU$(I)="/"THENRETURN GN 

•6160 IFDE=2THENPRINT" [ CLEAR ] " : PRINTTAB( 5 

);"[RVS0N]: TITLE OF ARTICLE : [RVSOFF]"; 

PRINT: PRINT" [BLUE]"; JG 

•6170 IFDE=2THENPRINrrA$(I):PRINT:PRINT"E 

NTER NEW VALUE": PRINT: INPUTTA$( I) MC 
•6180 IFLEN(TA$(I))>39THENG0SUB50:PRINT:G 

0T0616O DN 

•6185 IFTA$(I)="/"THENRETURN GO 

• 6190 IFDE=3THENPRINT" [ CLEAR ] " : PRINTTAB( 5 

);"[RVSON]: AUTHOR'S NAME : [RVSOFF]" :PRI 

NT: PRINT" [BLUE]"; HE 

•6200 IFDE=3THENPRINTAN$(I) : PRINT :PRINT"E 

NTER NEW VALUE" : PRINT: INPUTAN$(I) FL 
•6210 IFLEN(AN$(I))>39THENG0SUB50:PRINT:G 

0T06190 01 

•6215 IFAN$(I)="/"THENRETURN DA 

• 6220 IFDE=4THENPRINT" [ CLEAR ] " : PRINTTAB( 5 

);"[RVS0N]: NAME OF MAGAZIZNE : [RVSOFF]" 

: PRINT: PRINT" [BLUE]"; EE 

•6230 IFDE=4THENPRINTMN$(I) : PRINT :PRINT"E 

NTER NEW VALUE": PRINT: INPUTMN$ (I) KG 
•6240 IFLEN(MN$(I))>39THENGOSUB50:PRINT:G 

0T06220 GM 

•6245 IFMN$(I)="/"THENRETURN EE 

• 6250 IFDE=5THENPRINT" [ CLEAR ] " : PRINTTAB( 5 

);"[RVS0N]: ISSUE / PAGE / DATE : [RVSOFF 

]": PRINT: PRINT" [BLUE]"; I A 

•6260 IFDE=5THENPRINTID$(I):PRINT:PRINT"E 

NTER NEW VALUE": PRINT: INPUTID$(I) JB 
•6270 IFLEN(ID$CI))>39THENG0SUB50:PRINT:G 

0TO6250 DP 

•6275 IFID$(I)="/"THENRETURN DG 

■ 6280 IFDE=6THENPRINT" [CLEAR ] " : PRINTTAB( 5 

);"[RVSON]: COMMENTS OR NOTES :": PRINT :P 

RINT"[BLUE]"; BL 

•6290 IFDE=6THENPRINTCM$(I) :PRINT:PRINT"E 

NTER NEW VALUE": PRINT: INPUTCM$(I) AO 
•6300 IFLEN(CM$(I))>70THENG0SUB60:PRINT,G 

0T06280 DP 

•6305 IFCM$(I)="/"THENRETURN CF 

•6310 PRINT" [CLEAR]" :G0TO6010 PC 

•6999 REM===LIST + DELETE ROUTINE ====== 

CE 
• 7000 PRINT" [ CLEAR ] " : GOSUBIO : PRINT" [ CLEAR 

]":F0RI=1T0C: PRINT: PRINT OB 

•7010 PRINTTAB(9);"[RVS0N][:SUBJECT OF AR 

TICLE : ] [ RVSOFF ] " : PRINT" [ BLUE ] " ; SU$ ( I ) : PR 

AHOYl 107 



r 



INT BM 

•7020 PRINTTAB(9) ;"[ BLACK] [RVSON][:TITLE 
OF ARTICLE : ][RVSOFF]": PRINT" [BLUE]" ;TA 
$(I):PRINT MJ 

• 7030 PRINTTAB(9) ; " [ BLACK ] [ RVSON ] [ : AUTHOR 
'S NAME [5" "]:][RVSOFF]":PRINT"[BLUE]";A 
N$(I): PRINT MI 

•7040 PRINTTAB(9);" [BLACK] [RVSON ][:NAME 
F MAGAZINE : ] [RVSOFF]":PRINT"[BLUE]";MN 
$(I):PRINT PI 

•7050 PRINTTABC9);"[BLACK] [RVSON] [:ISSUE 
#/PAGE/DATE : ][RVSOFF]":PRINT"[BLUE]";ID 
$(I):PRINT BD 

•7060 PRINTTAB(9);"[ BLACK ][ RVSON] [:COMMEN 
T OR NOTES :][RVSOFF]":PRINT"[BLUE]";CM 
$(I):PRINT OC 

• 7065 IFFA=1THENPRINT : PRINT" [ BLACK ] " ; TAB( 
8); "PRESS ANY KEY TO CONTINUE" AH 

•7070 IFFA=1THENGETDE$:IFDE$=""THEN7070 BK 
•7075 IFDE$="/"THENRETURN 10 

•7080 IFFA=1THENFA=.: RETURN MC 

• 7090 IFFL=1THENPRINT" [ BLACK ] " ; TAB( 5 ) ; "DE 
LETE THIS RECORD [RVSON] [Y][RVSOFF] OR [ 
RVSON] [N][RVSOFF]" HM 

•7100 IFFL=1THENGETDE$:IFDE$=""THEN7100 AH 
•7110 IFFL=1ANDDE$="Y"THEN7180 DI 

•7120 IFFL=1THENPRINT"[CLEAR]":NEXTI:RETU 

RN ML 

•7125 IPF4=1THENPRINT" [ BLACK] ";TAB(5); "MO 

DIFY THIS RECORD [RVSON] [Y] [RVSOFF] OR [ 

RVSON] [N][RVS0FF]":G0T07140 AH 

•7130 PRINT"[ BLACK ]";TAB(7); "CONTINUE PAG 

ING [RVSON] [Y] [RVSOFF] OR [RVSON ][N][RVS 

OFF]" AF 

•7140 GETDE$:IFDE$=""THEN7140 EB 

•7145 IFDE$="/"THENRETURN 10 

•7150 IFDE$<>"Y"ANDDE$<>"N"THEN7140 CF 
•7155 IFF4=1ANDDE$="N"THENPRINT"[CLEAR]": 

NEXT: RETURN EB 

•7160 IFDE$="N"THENRETURN LD 

•7165 IFF4=1ANDDE$="Y"THENF4=. : PRINT" [CLE 

AR]": RETURN EC 

•7170 PRINT" [CLEAR ]":NEXT:K2=.: RETURN KJ 
■7180 SU$(I)="DELETE":0PEN5,8,5,"@0:"+Z$+ 

",S,W": PRINT" [CLEAR]" OF 

•7190 PRINTTAB(4);"0NE MOMENT DELETING RE 

CORD #";I:F0RI=1T0C CP 

•7200 IFSU$(I)="DELETE"THENC=C-1:NEXT BI 
•7210 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$ 

(I)P$ID$(I)P$CM$(I) KH 

•7220 NEXT:I=C+1:SU$(I)="E0F":TA$(I)="TIT 

LE":AN$(I)=" AUTHOR" :MN$(I)="MAG" EH 
•7230 ID$(I)="ISSUE":CM$(I)="COMMENT" OA 
•7240 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$ 

(I)P$ID$(I)P$CM$(I):CL0SE5:FL=.: RETURN HB 
•7999 REM====END=== CC 

•8000 PRINT" [ CLEAR ] " : F0RX=1T0I 2 : PRINT : NEX 

T:PRINTTAB(9);"IT'S BEEN A PLEASURE" CO 
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8010 F0RI=1T015:P0KE53281,I+1:F0R X=1T02 
00:NEXTX:NEXTI:P0KE53281,6 AA 

8020 PRINT" [ CLEAR ] " : PRINT" [ HOME ] " : END FO 

8999 REM====== INITIALIZE FILE====== PG 

9000 PRINT"[CLEAR]":PRINTTAB(5);"THIS FI 
LE '";Z$;"' HAS NOT BEEN INITIALIZED ":C 
L0SE5 PL 
9010 PRINT"0R YOU DO NOP HAVE THE CORREC 

T DISK IN THE DRIVE !" PL 

9020 PRINT : PRINrrAB(8 ) ; " [ RVSON ] [ C ] [ RVSOF 
F]ONTINUE -/- [RVSON] [R] [RVSOFF] ETURN" OE 
9030 GETDE$:IFDE$=""THEN9030 GH 

9035 IFDE$="/"THENK=1: RETURN PM 

9040 IFDE$="R"THENK=1: RETURN EF 

9050 IFDE$<>"R"ANDDE$<>"C"THEN9030 PN 
9060 0PEN5 . 8 , 5 , "0 : "+Z$+" , S , W" : PRINT" [ CLE 
AR] " :PRINTTAB( 14) ; "INITIALIZING" PE 
9070 PRINT :PRINTTAB(20-LEN(Z$)/2);Z$ GB 
9080 SU$(1)="E0F":TA$(1)="TITLE":AN$(1)= 
"AUTHOR" :MN$( 1 )="MAG" : ID$( 1 )="ISSUE" BG 
9090 CM$(1)="C0MMENT" DC 

9100 PRINT#5,SU$(1)P$TA$(1)P$AN$(1)P$MN$ 
(1)P$ID$(1)P$CM$(1):CL0SE5: RETURN PG 

9199 REM=====DELETE THE ENTIRE FILE ===== 

JA 

9200 PRINT" [ CLEAR ] " : F0RI=1T01 : PRINT : NEX 
T:PRINTTAB(11);"!! ARE YOU SURE !!" JM 
9210 PRINT:PRINrfAB(15);"[RVS0N][Y][RVS0 
FF] OR [RVSON] [N] [RVSOFF]" KK 
9220 GETDE$:IFDE$=""THEN9220 GC 
9225 IFDE$="/"THENRETURN 10 
9230 IFDE$<>"Y"ANDDE$<>"N"THEN9220 PC 
9240 IFDE$="N"THENRETUKN LD 
9250 PRINT :PRINTTAB( 10); "ONE MOMENT DELE 
TING":PRINT:PRINTTAB(20-LEN(Z$)/2) ;Z$ DO 
9260 OPENS ,8,5, "@0 : "+Z$+" , S , W" : G0SUB9080 

: RETURN BJ 

9299 REM=====S0RT PART2===== KP 

9300 PRINT"[CLEAR]":PRINTTAB(9);"0NE MOM 
ENT NOW SORTING" : PRINT EC 
9310 PRINTTAB(20-LEN(Z$)/2);Z$ KL 
9320 ONK1G0TO9350, 9400, 9450, 9500, 9550 EO 
9350 F=.:F0RJ=1T0C-1 MI 
9360 IFSU$(J)<=SU$(J+1)THEN9380 PO 
9370 GOSUBIOOOO II 
9380 NEXT:IFF=1THEN9350 ND 
9390 RETURN IM 
9400 F=.:F0RJ=1T0C-1 MI 
9410 IFTA$(J)<=TA$(J+1)THEN9430 NA 
9420 GOSUBIOOOO II 
9430 NEXT:IFF=1THEN9400 NN 
9440 RETURN IM 
9450 F=.:F0RJ=1T0C-1 MI 
9460 IFAN$(J)<=AN$(J+1)THEN9480 OJ 
9470 GOSUBIOOOO II 
9480 NEXT:IFF=1THEN9450 NE 
9490 RETURN IM 
9500 F=.:F0RJ=1T0C-1 MI 



IIVIPORTANT! 



Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain ttiese codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 

90 02 E6 15 C8 Bl FB 4C 61 

E4 CO 20 53 CO A5 3D C5 9A 

U DO 13 A5 3E 05 15 DO A7 

OD A9 20 20 D2 FF A5 FD 95 

A A A 5 FE 20 CD BD AO 00 CB 

Bl FB C9 2C FO 91 4C 23 CD 
CO 01 



•9510 IFMN$(J)<=MN$(J+1)THEN9540 


NC 


Clio 


•9520 GOSUSBIOOOO 


PP 


C118 


• 9530 NEXT : IFF=1THEN9500 


NK 


CI 20 


•9540 RETURN 


IM 


C128 


•9550 F=.:F0RI=1T0C-1 


MH 


CI 30 


•9560 IFID$(J)<=ID$(J+1)THEN9580 


NK 


C138 


•9570 GOSUBIOOOO 


II 


C140 


•9580 NEXT:IFF=1THEN9550 


NF 


^^jfc 


•9590 RETURN 


IM 


STA 



• 10000 S1$=SU$( J) :T1$=TA$( J) : A1$=AN$( J) :M 

1$=MN$(J):I1$=ID$(J):C1$=CM$(J) PB 

•10010 SU$(J)=SU$(J+1):SU$(J+1)=S1$:TA$(J 

)=TA$(J+1):TA$(J+1)=T1$:F=1 OJ 

•10020 AN$(J)=AN$(J+1):AN$(J+1)=A1$:MN$(J 

)=MN$(J+1):MN$(J+1)=M1$ MO 

•10030 ID$(J)=ID$(J+1):ID$(J+1)=I1$:CM$(J 

)=CM$(J+1):CM$(J+1)=C1$:RETURN KA 

GO-LISTER* 

FROM PAGE 73 



T & 
FILE ADDRESS 

FROM PAGE 17 



First byt( 


3: COOO 


Last 


byte 


: C140 


SYS 


to start: 49152 


COOO: 


A9 


01 


A2 


04 


AO 


FF 


20 


BA 


CC 


COOS: 


FF 


A9 


00 


20 


BD 


FF 


20 


CO 


70 


COlO: 


FF 


A2 


01 


20 


C9 


FF 


AO 


08 


46 


C018: 


84 


46 


AO 


01 


84 


45 


4C 


87 


22 


C020: 


CO 


AO 


00 


Bl 


FB 


C9 


00 


FO 


E9 


C028: 


41 


C9 


22 


DO 


06 


A9 


01 


45 


IC 


CO 30: 


43 


85 


43 


A5 


43 


C9 


01 


FO 


EO 


C038: 


12 


Bl 


FB 


C9 


89 


FO 


28 


C9 


2E 


C040: 


8D 


FO 


24 


C9 


A7 


FO 


20 


C9 


2F 


C048t 


CB 


FO 


IC 


AO 


01 


20 


53 


CO 


F6 


CO 50: 


4C 


23 


CO 


CO 


00 


FO 


OF 


A9 


EA 


C058: 


01 


18 


65 


FB 


90 


02 


E6 


FC 


49 


C060: 


85 


FB 


88 


4C 


53 


CO 


60 


4C 


77 


C068: 


CF 


CO 


AO 


02 


Bl 


FB 


C9 


00 


13 


C070: 


FO 


14 


AO 


03 


Bl 


FB 


85 


FD 


4A 


C078: 


C8 


Bl 


FB 


85 


FE 


C8 


20 


53 


AF 


C080: 


CO 


84 


43 


4C 


23 


CO 


88 


Bl 


73 


C088 : 


45 


C9 


00 


FO 


34 


C8 


Bl 


45 


7C 


C090: 


85 


3D 


C8 


Bl 


45 


85 


3E 


AO 


77 


C098: 


00 


Bl 


45 


AA 


C8 


Bl 


45 


85 


7F 


COAO: 


46 


SA 


85 


45 


A9 


00 


85 


FB 


67 


C0A8: 


A9 


08 


85 


FC 


A9 


OD 


20 


D2 


86 


COBO: 


FF 


A5 


3D 


AA 


A5 


3E 


20 


CD 


10 


COBS: 


BD 


A9 


3A 


20 


D2 


FF 


4C 


72 


OC 


COCO: 


CO 


A9 


OD 


20 


D2 


FF 


20 


CC 


18 


C0C8: 


FF 


A9 


01 


20 


C3 


FF 


60 


AO 


58 


CODO: 


00 


84 


14 


84 


15 


C8 


Bl 


FB 


79 


CODS: 


C9 


20 


FO 


F9 


C9 


AO 


FO 


F5 


FE 


COEO: 


C9 


A4 


FO 


Fl 


C9 


30 


30 


32 


8E 


GOES: 


C9 


3A 


10 


2E 


E9 


2F 


85 


07 


DO 


COFO: 


A5 


15 


85 


22 


A5 


14 


OA 


26 


3D 


COFS : 


22 


OA 


26 


22 


65 


14 


85 


14 


80 


CI 00: 


A5 


22 


65 


15 


85 


15 


06 


14 


F6 


CI 08: 


26 


15 


A5 


14 


65 


07 


85 


14 


03 


*To enter Go-Lister, 


yoi 


must use Fiankspeed (see 



•2 PRINT" [CLEAR] [DOWN] [7" "] [RVSON] START 
& END FILE ADDRESS": REM BY DAVE SMART DM 
4 FORI=828T0904:READA:POKEI,A:NEXT KH 
6 0PEN15,8,15,"I0" 00 

8 INPUT" [3"[D0WN]"] FILE TO CHECK ";F$:P 
RINT DE 

10 "PMSD-3" SEQ OG 

12 POKE251,P-S*256:POKE252,S CI 

14 PRINT" ";F$ KC 

16 0PENl,8,2/'0:"+F$ GO 

18 GET#1,A$,B$ AK 

20 D=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)) IL 
22 INPUT#15,E,E$,E1,E2 ED 

24 IFE>OTHENPRINT : PRINT , E$ : CLOSEl : CLOSEl 
5: END KL 

30 PRINTTAB( 15) "START ADDR.(DEC)"D JH 
32 W=D: G0SUB54 HC 

34 PRINTTAB(26)"(HEX) "H$ NJ 

36 PRINT" [DOWN] PLEASE WAIT[3"."]" IJ 
38 SYS831 DN 

40 F=P:P=PEEK(251)+PEEK(252)*256:T=P CN 
42 Z$=RIGHT$("[3" "]"+STR$(T-F),5) DH 
44 PRINT" [UP] [18" "]"Z$;" BYTES OF MEM.[ 
DOWN]" JP 

46 Z=VAL(Z$) KH 

48 PRINTTAB(17)"END ADDR. (DEC)"Z+W:D=W+Z 
:G0SUB54 AN 

50 PRINTTAB(26)"(HEX) "H$ NJ 

52 G0T060 PG 

54 H$="":M=4096:N=3:IFD<256THENM=16:N=1 AL 
56 F0RH=0T0N:C=INT(D/M) :D=D-C*M:M=M/16:C 
=C+48:IFC>57THENC=C+7 DA 

58 H$=H$+CHR$(C): NEXT: RETURN BL 

60 CLOSEl: CLOSEl 5 BB 

62 PRINT" [DOWN] [DOWN] DO YOU WISH TO CHEC 
K ANOTHER FILE (Y/N)" NH 

64 GETA$:IFA$=""THEN64 GB 

66 IFA$<>"Y"THENEND DI 

68 IFA$="Y"THEN6 DG 

70 DATA 76,96,3,162,1,32,198,255,32 NH 
72 DATA 228,255,160,0,145,251,230 OB 
74 DATA 251,208,8,230,252,165,252 HA 
76 DATA 201,208,240,6,165,144,41,64 KD 
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•78 DATA 240,231,76,204,255,162,1,32 
■80 DATA 201,255,162,54,134,1,160,0 
'82 DATA 177,251,32,210,255,230,251 
■84 DATA 208,2,230,252,165,251,197,253 
■86 DATA 208,239,165,252,197,254,208 
■88 DATA 233,162,55,134,1,76,204,255 



KC 
DB 
MK 

DM 
FL 

EF 



FROM PAGE 29 



•0 G0T090 PP 

•2 D=INT(RND(1)*9)+1 OB 

•3 E=INT(RND(1)*9)+1:I=D*E:PRINT"[H0ME][2 
2"[DOWN]"][7"[RIGHT]"]";D;"[RVSON][s V]" 
lE; EM 

•4 X=2 : 0=0 : F0RT=1T07 : POKEU , 241 : F0RTT=1T03 
00 : NEXT : POKEU , : F0RTT=1T050 : NEXT ; NEXT : GO 
T034 GC 

•8 IFQ=ITHEN18 OG 

•9 IFQOITHEN70 JO 

•14 POKEA,G:POKEA+B,2:Q=Q+1:FORT=170T0135 
STEP-1 : POKEU+1 , T : NEXT : POKEU+1 , 1 POKEA , 32 
:G0T040 LH 

• 18 K=K+1 : PRINT" [ CLEAR ] [ BLACK ] [ RVSON ] GREA 
T[3"!"]":PRINT"[D0WN][D0WN][RED][RVS0N]C 
ORRECT ANSWER ! " : PRINT" [ DOWN ] [ DOWN ] " ; D ; " [ 
RVSON][s V]";E;"=";I CF 

19 PRINT" [DOWN] [PURPLE] [RVSON] YOUR SCORE 
IS NOW";K:FORT=135T0241:POKEU,T:NEXT DP 

20 POKEU , : F0RT=1T02 ; POKEU , 241 : F0RTT=1T0 
200 : NEXT : POKEU , : F0Rrr=lT050 : NEXT : NEXT PF 

21 PRINT"[4"[D0WN]"] [BLACK] [RVSON] HIT SP 
ACE" EG 

22 IFPEEK(197)<>32THEN22 EB 

23 PP=PP+1:IFPP<10THEN29 GO 

24 POKE36869,240:PRINT"[CLEAR][7" "]GAME 
0VER":PRINT"[3"[D0WN]"]FINAL SCORE: ";K OJ 

25 PRINT" [4" [DOWN]"] YOU HAVE COMPLETED T 
EN PROBLEMS WITHOUT GUMS GETTING YOU!" J A 

26 PRINT" [ 3" [ DOWN ]"]HIT [ RVSON ]F1[RVS0FF 

] TO PLAY [10" "] AGAIN." PH 

27 IFPEEK(197)<>39THEN27 BN 

28 RUN95 PL 

29 PRINT"[CLEAR]":P0KE36869,255 CA 

30 A=8131:B=30720:C=7680:V=36878:P0KEV,1 
5:U=36876:P0KEV+1,238:X=1 NL 

31 F0RT=1T01 25 : S=INT( RND( 1 )*396 )+7702 : PO 
KES,5:POKES+B,0:NEXT:H=7679 ML 

33 IFX=1THEN2 KD 

34 POKEC+B , : POKEC+1+B, : POKEC , 3 : POKEC+1 
,4:IFA=C0RA=C+1THEN55 HE 

35 WAIT653,l,l:IFC>816r/THENPOKEC,32:P0KE 
C+1, 32:0=7680 AM 

36 POKEA , 32 : F=PEEK ( 1 97 ) : IFF023ANDF031T 
HENA=A-22:G=0 AD 

37 IFF=31THENA=A-1:G=2 BC 



> entering any programs! 

•38 IFF=23ANDA<8163THENA=A+1:G=1 FL 
•39 IFPEEK(A)=5THEN14 01 

•40 POKEA+B, 2: POKEA, G: POKEC, 32: POKEC+1, 32 

:C=C+l:IFPEEK(C+l)=5THENC=C+22 lA 
•41 IFA<HTHEN8 KK 

•42 GOT033 PG 

•55 L=15 GD 

•56 FORT=20OTO135STEP-l:POKEU+l,T:NEXT:P0 

KEU+ 1,1 35 :F0RT=1T050: NEXT: POKEU+1, CL 
•57 L=L-1:P0KEV,L:IFL>5THEN56 KA 

• 58 FORT= ITOl 500 : NEXT : POKEU-2 , 1 35 : F0RT=1T 
01000:NEXT:POKEU-2,0 AL 

•60 P0KE36869,240:PRINT"[CLEAR]GUMS GOT Y 
A!":PRINT"[4"[D0WN]"]BUT DON'T WORRY, YOU 
[3" "]WERE DELICOUS!!" BI 

•61 PRINT"[4"[D0WN]"]HIT[RIGHT][RVS0N]F1[ 
RVSOFF] TO PLAY AGAIN" EO 

•62 IFPEEK(197)<>39THEN62 BC 

•63 RUN29 PO 

• 70 P0KE36869 , 240 : IFQ>ITHENPRINT" [ CLEAR ] Y 
OU ATE TOO MUCH!" ID 

•71 IFQ<ITHENPRINT"[CLEAR]YOU DIDN'T EAT 
ENOUGH ! " ED 

•72 FORT=241T0135STEP-l:POKEU,T:NEXT:POKE 
U,0:FORTT=1T0100:NEXT: POKEU, 140: F0RT=1T0 
1000 JJ 

• 73 NEXT : POKEU , : PRINT" [ DOWN ] [ DOWN ] " ; D ; " [ 
s V]";E;"=";I;:PRINT"[DOWN][DOWN]YOU ATE 
";Q AH 

•74 K=K-1: PRINT" [DOWN] [DOWN] YOUR SCORE IS 
N0W";K:G0T021 OF 

•90 P0KE52,28;P0KE56,28:CLR:F0RI=7168T076 
79 :P0KEI, PEEK (1+25600): NEXT NL 

•91 RESTORE :FORT=1T020:READF: NEXT ;F0RG=71 
68T07221:READF:P0KEG,F:NEXT AO 

•92 DATA135, 145, 155, 145, 155, 165, 155, 165,1 
75,185,185,195,165,165,165,195,195,165,1 
65,215 MK 

•93 DATA24, 40, 122, 114, 60, 24, 24, 60, 0,12, 15 
8,253,247,144,12,0,0,48,121,191,239,9,48 
,0 EH 

•94 DATA14,7, 143,223,255,255,223, 143,0,0, 
192,160,240,184,128,240,0,0,0,0,4,28,60, 
28,0,0,0 II 

•95 DATAO.O.O HD 

•100 P0KE36879,8:PRINT"[CLEAR][CYAN][3"[c 

+]"][SS][3"[c +]"][SS][3"[c +]"][SS][c 
+ ][SS][c +]":PRINT"[c +][4"[SS]"] [c +][S 
S][SS][c +][3"[SS]"][c +][SS][c +]":PRIN 
T"[c +][c +][3"[SS]"][c +][SS][SS][3"[c 
+]"][SS][3"[c +]"]" CG 

•101 PRINT"[c +][4"[SS]"][c +][4"[SS]"][c 

+][SS][c +][SS][c +]":PRINT"[c +][3"[SS 

]"][3"[c +]"][SS][3"[c +]"][SS][c +][SS] 

[c +]":PRINT:PRINT"[3" "][c +][3"[SS]"][ 

c +][SS][3"[c +]"][SS][3"[c +]"][SS][c + 
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][SS][c +]" GA 

•102 PRINT"[3" "][c +][c +][SS][c +][c +] 
[SS][c +][SS][c +][SS][SS][c +][SS][SS][ 
c +][SS][c +]":PRINT"[3"[SS]"][c +][SS][ 
c +][SS][c +][SS][3"[c +]"][SS][SS][c +] 
[SS][SS][3"[c +]"]":PRINT"[3" "][c +][3" 
[SS]"][c +][SS][c +][SS][c +][SS][SS][c 
+][SS][SS][c +] 

[c +]" BO 

•103 PRINT"[3" "][c +][3"[SS]"][c +][SS][ 

c +][SS][c +][SS][SS][c +][SS][SS][c +][ 

SS ] [ c + ] " : PRINT" [ DOWN ] [ DOWN ] [YELLOW ] [ 3" 

"]BY KEVIN DEWEY." PI 

•104 PRINT" [DOWN] [DOWN] [5" "]HIT ANY KEY" 

;:POKE198,0 BH 

•105 PRINT"[BLACK]":P0KE36878,15 AE 
•106 RESTORE: FORT=1T020:READU:POKE36876,U 

:FORTT=1T0100:NEXT:POKE36876,0 NI 
•107 GETA$:IFA$<>""THEN29 PE 

•108 NEXT lA 

•109 G0T0106 CL 

FASTNEW 

FROM PAGl 33 T^/^ 

10 REM CD 

11 REM FAST NEW LK 

12 REM DON LEWIS V010585 (REV V123184) JN 

14 REM CD 

15 GOTO U/jO EC 

16 : DI 

19 REM DOWNLOAD CODE INTO 1541 BJ 

20 RESTORE: PRINT CHR$(151) PO 
30 FOR 1=0 TO 102: READ A: POKE 820+1, A JP 
35 IF (I/10)-INT(I/10)=0 THEN PRINT "[c 

P]"; 

40 NEXT I 

50 FOR 1=0 TO 511: READ A: POKE 1+9472, A 

55 IF (I/18)-INT(I/18)=0 THEN PRINT "[c 

P]"; 

60 NEXT I: PRINT CHR$ ( 30) ;: RETURN 

99 : 

100 REM PROMFI AND WAIT FOR RESPONSE 

105 PRINT; PRINT "INSERT DISK AND HIT "RT 

$• 

110 GOSUB 200:IF A$<>CHR$(13) THEN GOTO 

110 

120 RETURN 

199 : 

200 REM GET CHAR FROM KB, WITH PROMPT 
205 POKE 198,0: POKE 204,0 
210 GET A$:POKE 207,0: IF A$="" 

210 
215 POKE 204,1: PRINT " [LEFT]" 
299 : 

400 REM DO A DISK JOB, THANKS "INSIDE CO 
MMODORE DOS" BY DICK EMMERS, DATAMOST JH 
410 TY=0:PRINT#15,"M~W"CHR$(8)CHR$(0)CHR 



THEN GOTO 



: RETURN 



LM 

MN 
PE 

MM 
CH 
DI 

HJ 

NN 

BC 
IM 
DI 
HG 
HG 

CJ 
JF 
DI 



$(2)CHR$(T)CHR$(S) KH 
■420 PRINT#15,"M-W"CHR$(1)CHR$(0)CHR$(1)C 

HR$(JB) KH 

430 TY=TY+1 OK 

440 PRINT#15,"M-R"CHR$(1)CHR$(0) OD 

450 GET#15,E$:IF E$="" THEN E$=CHR$(0) AH 

460 E=ASC(E$) GE 

470 IF TY=500 THEN GOTO 495 GI 

480 IF E>127 THEN GOTO 430 AL 

485 IF EOl THEN GOTO 495 CN 

490 RETURN IM 
495 PRINT :PRINT"FATAL ERROR TRY AGAIN" :S 

TOP NN 
499 : 



DI 
IC 
CK 



CO 

"]"TP$ GE 
OC 
KI 
AF 
JI 
HG 
AA 
EN 
GL 
CL 



1000 REM ***** MAIN CODE HERE ***** 
1003 Q$=CHR$(5)+"Q"+CHR$(30) 

1005 POKE 53280, 11 :POKE 53281 ,0: PRINT "[ 
GREEN]"; ;RT$=CHR$(158)+"<RETURN>"+CHR$(3 

0) PG 

1006 TP$=CHR$(31)+"[s U][19"[s C]"][s I] 
"+CHR$(30) DP 

1007 PN$=CHR$(31)+"[s B]"+CHR$(30)+" FAS 
T NEW V010585 "+CHR$(31)+"[s B]"+CHR$(3 

0) EO 

1008 TB$=CHR$(31)+"[s J][19"[s C]"][s K] 
"+CHR$(30) 

1010 PRINT CHR$(147)CHR$C13)"[10" 

1011 PRINT "[10" "]"PN$ 

1012 PRINT "[10" "]"TB$: PRINT 
1015 IF FG=1 THEN GOTO 1035 
1020 PRINT "PLEASE WAIT,."; 
1030 GOSUB 20: PRINT :FG=1 
1035 SYS 820:DN$="NAME ME" 
1040 POKE 198,0: INPUT "DISK NAME";DN$ 
1050 POKE 198,0: INPUT "DISK ID";DI$ 
1060 DI$=LEFT$(DI$+"ZZ",2) 
1070 I1=ASC(LEFT$(DI$,1)):I2=ASC(RIGHT$( 
DI$,1)) JM 
1080 OPEN 15,8,15:PRINT#15,"M-W"CHR$(18) 
CHR$(0)CHR$(2)CHR$(I1)CHR$(I2);:CLOSE15 KH 

1090 GOSUB 100 CJ 

2000 OPEN 15,8,15:PRINT#15,"M-E"CHR$(0)C 
HR$(5);:CL0SE15:0PEN 15,8,15 DI 

2010 T=18:S=0:JB=176:GOSUB 400:REM SEEK EA 
2020 JB= 128: GOSUB 400: REM READ DL 
2030 PRINT#15,"M-W"CHR$(0)CHR$(4)CHR$(3) 
CHR$(18)CHR$(1)CHR$(65) HG 

2040 JB=144: GOSUB 400: REM WRITE IK 
2050 S=1:JB=128:REM READ BN 

2060 PRINT#15,"M-W"CHR$(0)CHR$(4)CHR$(2) 
CHR$(0)CHR$(255) LC 

2070 JB=144: GOSUB 400: REM WRITE IK 
2080 CLOSE 15 AB 

2090 OPEN 15,8,15:PRINT#15,"N0:"DN$ DN 
2100 CLOSE 15 AB 

3000 PRINT: PRINT :PRINT"FORMAT COMPLETE, 
REMOVE DISK" DM 

3010 PRINT :PRINT"HIT "RT$" TO FORMAT ANO 

AHOY! m 
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THER 
■3015 
•3020 
•3030 
•AOOO 
•4010 
•A020 
•4030 
•4040 
•4050 
•4060 
•4070 
•4080 
•4090 
•4100 
•4110 
•4120 
•4999 
•5000 
•5010 
•5020 
•5030 
•5040 
•5050 
•5060 

• 5070 

• 5080 

• 5090 
•5100 
•5110 
■5120 
•5130 
•5140 
■5150 
■5160 
•5170 
•5180 
•5190 

• 5200 
•5210 
•5220 
•5230 
•5240 
•5250 
•5260 

• 5270 
•5280 

• 5290 
•5300 
•5310 
•5320 
•5330 
•5340 
•5350 

• 5360 
•5370 



DISK," LM 

PRINT Q$" TO QUIT";:GOSUB 200 PD 

IF A$=CHR$(13) THEN GOTO 1000 BO 

END IC 

DATA 169,16,133,255,169,0,133,251 CK 

DATA 169,37,133,252,169,0,133,253 PE 

DATA 169,5,133,254,165,186,32.177 EL 
DATA 255,169,111,32,147,255,165,251 EM 

DATA 164,252,141,152,3,140,153,3 HC 

DATA 160,0,185,149,3,32,168,255 HM 

DATA 200,192,6,208,245,160,0,177 PF 

DATA 251,32,168,255,200,192,32,144 BF 
DATA 246,165,251,105,31,133,251,165 EH 

DATA 252,105,0,133,252,165,253,105 AG 

DATA 32,133,253,165,254,105,0,133 HH 
DATA 254,32,174,255,198,255,208,180 EP 

DATA 96,77,45,87,0,0,32 PK 

REM CODE DOWNLOADED INTO 1541 RAM HI 

DATA 120,173,0,28,9,12,141,0 GO 

DATA 28,169,45,133,74,32,210,6 FM 

DATA 198,74,208,249,162,0,32,217 PM 

DATA 6,169,1,133,34,165,34,201 GG 

DATA 36,240,12,32,70,5,48,7 MM 

DATA 230,34,32,200,6,240,238,173 HN 

DATA 0,28,41,243,141,0,28,169 ED 

DATA 236,141,12,28,165,75,240,5 LB 

DATA 41,127,76,200,193,96,32,75 IF 

DATA 242,133,67,138,10,10,10,10 PO 

DATA 10,133,68,173,0,28,41,159 EO 

DATA 5,68,141,0,28,169,238,141 GN 

DATA 12,28,160,0,132,77,165,57 GJ 

DATA 153,0,3,200,200,165,77,153 OD 

DATA 0,3,200,165,34,153,0,3 EM 

DATA 200,165,19,153,0,3,200,165 FG 

DATA 18,153,0,3,200,169,15,153 GP 

DATA 0,3,200,153,0,3,200,185 ID 

DATA 250,2,89,251,2,89,252,2 EO 

DATA 89,253,2,153,249,2,230,77 KN 

DATA 165,77,197,67,144,192,152,72 GB 

DATA 169,3,133,49,32,48,254,104 II 

DATA 168,136,32,229,253,32,245,253 PM 

DATA 169,1,162,0,157,0,4,232 HG 

DATA 208,250,169,4,133,49,32,233 DK 

DATA 245,133,58,32,143,247,169,206 HM 

DATA 141,12,28,169,255,141,1,28 KM 

DATA 141,3,28,32,243,6,169,0 OD 

DATA 133,50,169,255,141,1,28,162 AM 

BG 
ED 



DATA 5,80,254,184,202,208,250,162 
DATA 10,164,50,80,254,184,185,0 



DATA 3,141,1,28,200,202,208,243 NN 

DATA 162,9,80,254,184,169,85,141 ML 

DATA 1,28,202,208,245,162,5,169 KA 

DATA 255,80,254,184,141,1,28,202 NH 
DATA 208,247,162,187,80,254,184,189 PI 

DATA 0,1,141,1,28,232,208,244 GG 

DATA 160,0,80,254,184,177,48,141 PG 



•5380 DATA 1,28,200,208,245,169,85,162 
•5390 DATA 8,80,254,184,141,1,28,202 
•5400 DATA 208,247,165,50,24,105,10,133 
■5410 DATA 50,198,77,208,149,80,254,184 
•5420 DATA 80,254,184,32,0,254,169,0 
■5430 DATA 133,48,169,3,133,49,165,67 
•5440 DATA 133,77,32,176,6,162,10,80 
•5450 DATA 254,184,173,1,28,209,48,208 
•5460 DATA 14,200,202,208,242,24,165,48 
•5470 DATA 105,10,133,48,76,132,6,169 
•5480 DATA 244,133,75,96,32,176,6,160 
•5490 DATA 187,80,254,184,173,1,28,217 
•5500 DATA 0,1,208,235,200,208,242,162 
•5510 DATA 252,80,254,184,173,1,28,217 
•5520 DATA 0,4,208,219,200,202,208,241 
•5530 DATA 198,77,208,182,169,0,240,209 
•5540 DATA 169,208,141,5,24,169,161,44 
•5550 DATA 5,24,16.197,44,0,28,48 
•5560 DATA 246,173,1,28,184,160,0,96 
•5570 DATA 32,203,6,174,0,28,232,76 
•5580 DATA 217,6,32,213,6,174,0,28 
•5590 DATA 202,138,41,3,133,68,173,0 
•5600 DATA 28,41,252,5,68,141,0,28 
•5610 DATA 160,8,162,0,202,208,253,136 
•5620 DATA 208,250,96,169,85,141,1,28 
•5630 DATA 160,32,208,240,234,234,234,234 PK 
•60000 CL0SE15:0PEN 15,8,15:INPUT#15, A$,B 
$,C$,D$ LK 

•60001 PRINT A$"[SS]"B$"[SS]"C$"[SS]"D$:C 
L0SE15:ST0P LM 

•61000 CL0SE15:0PEN 15,8, 15,"I0:":SAVE "@ 
0:FASTNEW.BAS",8:CLOSE 15: STOP KL 

•62000 CLOSE 15:0PEN 15,8, 15:PRINT#15,"M- 
R"CHR$(18)CHR$(0):GET#15,I1$ DP 

•62001 PRINT#15,"M-R"CHR$(19)CHR$(0):GET# 
15,12$ EO 

•62002 PRINT II $12$ NF 

•62004 CLOSE 15: STOP NG 



HI 

JK 
NP 
IE 
PB 
LJ 
ML 
DB 
II 
BF 
OA 
JI 
AE 
CD 
ML 
ML 
MN 
FL 
HK 
LH 
EL 
BP 
EL 
01 
CK 



INVECTIVE 

FRQM PAGE 15 



•10 REM PROGRAM: INVECTIVE JC 

•20 REM GEORGE TREPAL BM 

•30 REM 2650 ALTURAS RD PO 

•40 REM BARTOW, FL 33830 AG 

•50 : DI 

•100 GOSUB 1150 FK 

•110 P0KE53280,12:P0KE53281,12:PRINT"[CLE 

AR]"; KE 

•120 REM SET UP SCREEN AL 

•130 G$(l)="[BLACK][c B] [ YELLOW ][ 6" [ s Z 

]"][3" "][6"[s Z]"][4" "]t6"[s Z]"][3" " 

H6"[s Z]"] [BLACK][c B] KN 

•140 G$(2)="[BLACK][c B] [BLUE][c +][4" 

"l[c +][3" "][c +][4" "][c +]r4" "][c +] 
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[4" "][c +][3" "][c +][4" "][c +] [BLAC 
K][c B]" LC 

150 G$(3)="[BLACK][A0"[c B]"]" IB 

160 G$C4)=" [ BLACK ][c B][4" "] [YELLOW] [s 
Z][8" "][s Z][10" "][s Z][8" "][s Z][4" 
"][BLACK][c B]" LE 

170 PRINT G$(3); G$(4); G$(2); G$(2); G$ 
(1); G$(2); G$(2); G$(4); BF 

180 PRINT G$(4); G$(4); G$(2); G$(2); G$ 
(1); G$(2); G$(2); G$(4); DC 

190 PRINT G$(4); G$(4); G$(2); G$(2); G$ 
(1); G$(4); G$(4); G$(3); CF 

200 : DI 

210 REM POKE GREEN POINTS EG 

220 CM= 54272; REM CM=COLOR MEMORY KB 
230 FOR J=l TO 50 DM 

240 RN = INT(RND(1)*920)+1024 PB 

250 IF PEEK(RN)<>32 THEN 240 LB 

260 POKE RN.IOS: POKE RN+CM,13 KG 
270 NEXT lA 

280 : DI 

290 REM SET JOYSTICK VALUES J() AND SCRA 
MBLE ARRAY VALUES SA() FK 

300 J(l)=-40: J(2)=40: J(4)=-l: J(8)=l CO 
310 SA(1)=1: SA(2)=2: SA(3)=4: SA(4)=8 CA 
320 : DI 

330 REM SET UP PLAYER SP=SPACES OVER D 
N$=H0W FAR DOWN P=P0SITI0N CI 

340 REM BM$=BOTTOM OF SCREEN TI$=TIMER NF 
350 PRINT" [HOME] [DOWN ][ WHITE] [ RIGHT] [s Q 
]" PL 

360 SP=1: DN$="[ WHITE] [HOME] [DOWN]": P=l 
065: TI$="[5"0"]1" XL 

370 BM$="[H0ME][24"[D0WN]"]": GOSUB 750: 

GOSUB 1000 MM 

380 : DI 

390 REM READ PORT 2 JOYSTICK PA 

400 JV=PEEK( 56320) GA 

410 JV=15-(JVAND15) GH 

420 PRINTBM$;" [WHITE] SCORE ";SC; EL 
430 VT=VAL(TI$): IF VT/15=INT(VT/15)THEN 

GOSUB 680 10 

440 IF JV=0 THEN 400 LA 

450 : DI 

460 REM FIND CHARACTER MOVED TO MB 
470 T=P+J(JV) ED 

480 CH=(PEEK(T)) AB 

490 IF CH=32 THEN GOSUB 570: GOTO 400: 
REM BLANK SPACE CF 

500 IF CH=105 THEN SC=SC+10: GOSUB 570: 
GOSUB 1000: GOTO 400: REM GREEN SCORE JH 
510 REM BLUE JOYSTICK SCRAMBLE PM 
520 IF CH=102 THEN GOSUB 570: GOSUB 680: 
SC=SC-20: GOT0400 EL 

530 IF CH=90 THEN SC=SC-50: GOSUB 570: G 
OSUB 950: GOTO 400: REM YELLOW SCORE DP 
540 G0T0400 CA 

550 : DI 



560 REM WIPE OUT PLAYER POSITION 

570 PRINT DN$; SPC(SP)" "; 

580 : 

590 REM PRINT NEW PLAYER POSITION 

600 P=T 

610 IF J(JV)=1 THEN SP=SP+1 

620 IF J(JV)=-1 THEN SP=SP-1 

630 IF J(JV)=40 THEN DN$=DN$ + "[DOWN]" 

640 IF J(JV)=-40 THEN DN$=LEFT$(DN$,LEN( 

DN$)-1) 

650 PRINT DN$; SPC(SP)"[s Q]";: RETURN 

660 : 

670 REM SCRAMBLE JOYSTICK 

680 IF VT>130 THEN 1050 

690 FOR J=l TO 4: RN=INT(RND(1)*4)+1 

700 T=SA(J): SA( J)=SA(RN) : SA(RN)=T: NEX 

T 

710 J(SA(1))=1: J(SA(2))=-1: J(SA(3))=40 

: J(SA(4))=-40 

720 GOSUB 900 

730 : 

740 REM POSITION HINTS 

750 PRINT BM$;SPC(13)"[c 2]"; 

760 FOR J=l TO 8 

770 IF J=l THEN PRINT "UP "; 

780 IF J=2 THEN PRINT "DN "; 

790 IF J=4 THEN PRINT "LT "; 

800 IF J=8 THEN PRINT "RT "; 

810 IF JCJ)=1 THEN PRINT "> 

820 IF J(J)=-1 THEN PRINT "< 

830 IF J(J)=40 THEN PRINT "V[3" "]"; 

840 IF J(J)=-40 THEN PRINT "[UPARROW] 



850 NEXT 

860 POKE 53280,2: POKE 53281,2: FOR DL= 

1 TO 80: NEXT 

870 POKE 53280,12: POKE 53281,12 

880 : 

890 REM SCRAMBLE SOUND 

900 POKE 54296,15: POKE 54276,17: POKE ! 

4277,15: POKE 54273,60 

910 FOR DL=1 TO 25: NEXT 

920 POKE 54296,0: POKE 54276,0: RETURN 

930 : 

940 REM YELLOW HIT 

950 POKE 54296,15: POKE 54276,33: POKE . 

4277,15: POKE 54273,40 

960 FOR DL=1 TO 25: NEXT 

970 POKE 54296,0: POKE 54276,0: RETURN 

980 : 

990 REM GREEN SOUND 

1000 POKE 54296,15: POKE 54276,17: POKE 

54277,15: POKE 54273,30 

1010 FOR DL=1 TO 25: NEXT 

1020 POKE 54296,0: POKE 54276,0: RETURN 

1030 : 

1040 REM END GAME 

1050 PRINT" [CLEAR] [8" [DOWN ]"]";SPC( 15);" 

AHOY! m 



NI 
LL 
DI 
OD 
FB 
MB 
FB 
AK 

LE 
ID 
DI 
LB 
ED 
GG 

GH 

FF 
EB 
DI 
LH 
AJ 
AL 
LN 
JD 
LL 
KF 
PG 
FN 
DP 

PF 
lA 

EG 
NO 
DI 

KE 

HP 
BG 
EB 
DI 

KD 

KL 
BG 
EB 
DI 

LN 

KA 
BG 

EB 
DI 
OE 



SCORE ";SC 


OF 


1060 FOR J=l TO 4: GOSUB 900: GOSUB 950: 




GOSUB 900 


PI 


1070 GOSUB 1000: NEXT 


DI 


1080 PRINT"[4"[D0WN]"] PRESS JOYSTICK B 


UTTON TO PLAY AGAIN" 


BF 


1090 JV=PEEK( 56320) 


GA 


1100 FK=JVAND16 


AN 


1110 IF FR = 16 THEN 1090 


ED 


1120 GOTO 110 


DM 


1130 : 


DI 


1140 REM INTRO 


DH 



1150 PRINT" [ CYAN] [ CLEAR ][D0\^]": POKE 532 
80,0: POKE 53281,0: CA 

1160 PRINTSPC(16)"INVECTIVE[D0WN]" NI 
1170 PRINTSPC(12)"BY GEORGE TREPAL[DOWN] 
[DOWN]" DA 

1180 PRINTSPC(ll)"[c 6]GREEN = 10 POINTS 

PH 



•1190 PRINTSPC( 10) "[DOWN] [YELLOW] YELLOW = 

-50 POINTS" IP 

•1200 PRINTSPC(2)"[D0WN][c 7]BLUE = -20 P 
OINTS AND SCRAMBLES THE" JP 

•1210 PRINTSPC( 16) "JOYSTICK [DOWN]" lA 
•1220 PRINTSPC(2)"[CYAN]THE JOYSTICK IS S 
CRAMBLED EVERY 15" NN 

•1230 PRINTSPC( 2) "SECONDS WHETHER YOU HIT 

BLUE OR NOT" CD 

•1240 PRINTSPC(5)"[D0WN]THE JOYSTICK GOES 

IN PORT #2" IB 

•1250 PRINTSPC(7)"[D0WN]THE GAME LASTS 90 

SECONDS" AC 

•1260 PRINTSPC(5)"[D0WN]PRESS THE FIRE BU 
TTON TO PLAY" EJ 

•1270 JV=PEEK( 56320) GA 

•1280 FR=JVAND16 AN 

•1290 IF FR = 16 THEN 1270 EH 

•1300 RETURN IM 
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Commodore 64 
Commodore Iniernafionsl 
1200 Wilson Drive 
West Chesiar, PA 19380 
Phons: 215-431-9100 



VWcm BBS V8J 

Vision Software Co- 
PO. Boi 534 
Bronx. NY 10461 



Call us the modern way— 

on AhoyVs Bulletin Board System! 

If youf computer is equipped with a modem, you can call Ahoy!'% Bulletin Board System any hour 
of (he day, any day of tfie week to exchange electronic mail with other Commodore users or download 
files like the following: 



• Editorial calendar for 
upcoming issues 

• Excerpts from future edi- 
tions of Scuttlebutt 



• Corrections to programs 
and articles 

• Detailed descriptions 
of back issues 



• Program disk and 
subscription information 

• Classified 

advertising 



Set your modem for 300 baud, full duplex, no parity, 1 stop bit, 8-bit woi^ fenglfi, and dial awayl 



System Configuration of Ahoy! Bulletin Board System: 



MSD SO-2 Dual Disk Drive 

MSD Systflois, (nc 

1d031 Monroe Strset— Ste 206 

Dallas, TX 7S229 

Phone: 214-357-4434 

Superaland I 

A World or Plaslic, Ud. 
2535 United Lane 
Elk Grova Village. IL E0007 
Piwne: 312-860-2625 



Impaci Printer 

Fidelity Electronics. Ltd. 
8800 N.W. 36lh Sireat 
Miami, PL 33178 
Phone: 305-594-1000 

Unl-Koor C-100 

Uni-Kool 

909 Williamson Loop 
Gfanta Pass, OR 97526 
Phons; 5O3-476-I6B0 



MIfsy Mo Auto Modem 

USI International 
71 Park Lane 
Brisbane. CA 94005 
Phone: 415-468-4900 

Electra Computer Pad 
Charteswaiei Producis. Inc. 
93 Border Street 
West Mewton. MA 02165 
PllOfle: 617-9648370 



Sakala SC-IOO Color Monilor 

Sakata US A Corporaiion 
651 Bonnie Lane 
Elk Grove Viliage, IL 60007 
Pnone- 312-593-3211 

Computer Stands «5933 & fOMO 

Royal Seating Corporation 
P.O. Box 7S3 
Cameron. TX 76520 
Phone; 817-697-6421 



CALL TODAY: 718-383-8909 



..COMING IN THE OCTOBER AHOYI (ON SALE SEPTEMBER 3). 



ALIVE AND IN 
LIVING COLOR 

TURN YOUR C-64 SPRITES 

INTO FULL COLOR 
ANIMATED CHARAQERS 



INFINITESIMAL 



COMPUTER EXPLORATIONS 

OF SUB-MICROSCOPIC 

AQIVITY 



BIT BY BIT 

PERFORMING SINGLE BIT 

MANIPULATIONS ON 

BINARY NUMBERS 



U4 AHOY! 






Tte BETffiR Letter Box 



Introdudng EasyPlexT The new, 
easy-to-use electronic mail system 
from CompuServe. 



Finally! Electronic Mail that's so easy to 
use you can start composing and sending 
messages the first time you get online. 

Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for l)eginner5, 
and it lets experienced users save time by 
working in the prompt or command modes. 
With EiasyPlex, you can compose, edit, send, 
file, and take advantage of sophisticated 



options previously available only with more 
expensive services. 

CompuServe's EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc can communicate quickly and 
simply — either interoffice or interstate 
"lt'sE:asy'"'JustPlexil!'' 

Best of all, EasyPlex is available to all 
CompuServe subscribers. And, along with 
EasyPlex, you gel hundreds of valuable and 
entertaining computing options^ Plus the 
assurance of belonging to the largest, fastest 

R«ad«r Service No. 144 



growing computer infonnation service in 
the worid and the premier supplier of 
business information to FOfmJNE 500 
companies. 

Start communicalingi To buy a 
CompuServe Subscription Kit see your 
nearest computer dealer To receive our 
informative bnachure or to order direct, 
call or write: 

CompuServe* 

Information Services, PO. Box 20212 

SOOO Arlington Centre Blvd., Columbus, Ohio 43220 

800-848-8199 

In Ohio, call 614-457-0802 
An H&R Block Company 




•Commodore 64 ii i 

irademjrlt of C^mmodert EJe<iron*Ci, LTD. retpectiveJjr. 

Thif product is manufaccured by Naviront Industries 

for use on the Comm<id*re M tomputer ir>d u 

not tuadt. iporviared, authohzed or appfov«d 

by Commodore Electronici. LTD. 



DON'T MISS THE BOAT! 



\7JJ?\\7^ 



jh^ t^t %^^ 
HHI ^^B HB^ 



SUBSCRIBE 
TO AHOY! 

n Send me twelve Bsues of AHOY! for $19.95 

($26.95 Canada & elsewhere). I undav 
tand that I will be billed later. 

n Send me twenty-four issues of AHOY! for 
$37.95 ($49.95 Canada & dsewtiere). I 
understand that I wiU be biOed later. 

NAME 

ADDRESS 

CITY 

STATE ZIP 



READER SERVICE CARD 

To request additional information on any product advertised or otherwise pictured in this issue ot AAoy! 

tliat is accompanied by a reader service number, circle the corresponding number below and mail this 

card. We will promptly forward your request to the designated companies. 

101 va 10} iM 10$ io« tor iw iw no ui ii2 ii3 ii4 115 lit ii? 118 119 120 lai 112 m lu 125 )» u? 121 i2« ij« 

131 111 13) 134 I3i 13* 137 131 139 I« UI 141 143 144 14S 14i 147 14S 14* ISO 131 151 153 154 155 15t 157 158 1S» lU 

161 162 163 164 I6S 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 

191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 210 

211 212 113 214 115 116 217 118 219 210 211 121 223 214 215 226 217 218 22$ 130 231 132 133 234 235 236 237 238 239 2-n 

241 242 243 244 245 246 247 248 249 250 2J I 152 253 254 255 2S6 257 258 JS9 1*0 »1 2*2 2*3 264 265 2*6 267 268 2*9 270 

271 272 273 274 27S 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 3O0 



FLEASE ANSWER THE QUESTIONS BELOW. 
Sciudi«i 

/i n inMr P n ttmlf » 


»pr7 

K D KwlMSDd N a sytiKriiitklo (mall) 




r D taOttt tndmU 
G D Dusters dcgnc 
HDpkd 


M n ,tt^ 


EOJafaraflili 


tr oot curnntl} ■ subKriha-, do }« pin la htcaatt €aiT 

I D jra J D no 



Name. 
Street. 
Ctty _ 



State 



Zip 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 65 MT. MORRIS, ILL. 



POSTAGE WILL BE PAID BY ADDRESSEE 



P.O. BOX 341 
MT. MORRIS, ILL. 61054 



|| 



l....nll..l.l..l.|l,„||,|„|,|„..ll.l.l..l..l.i 



PLACE 
STAMP 
HERE 



AHOY! MAGAZINE 

P.O. Box 2501 
Clinton, Iowa 52735 



The 



